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micro rock 

rack para microcomputador 



- Projetado especificamente para microcomputadores 
de uso pessoal ou comercial 

- Duto eletrificado com tomadas, filtro e circuitos de 
segurança 

- Gaveteiro-arquivo dimensionado para diskettes e 
fitas cassete 

• Dimensões: 

1.30 x 0.65 x 0,65m e 1.90 x 0.75 x 0,65m 

- Acabamento em madeira natural, laminado ou 
pintura acrílica. 

• Para maiores informações, solicite folheto. 
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INFORMÁTICA 


Al. dos Arapanés, 841 - CEP 04524 
Tel.: (011) 542 1917 - São Paulo • Brasil 
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Editorial 

Muitos insensatos tentam amenizar as 
profecias apocalípticas dos cientistas 
falando em guerra nuclear limitada, em 
chances de sobrevivência e outras falsas 
esperanças. Um pouco de conhecimento 
de ecologia e meteorologia, porém , 
permite calcular as consequências de um 
conflito nuclear: as chances de 
sobrevivência na Terra são reduzidíssimas 
e ainda assim para algumas espécies, entre 
as quais, com certeza, não se inclui a 
humana. 

O que fazer? E hora de todos os 
indivíduos perceberem que o conflito 
básico não é político ou ideológico: o 
problema não é mais de esquerda contra 
direita ou moderados contra radicais. 

O problema básico é de indivíduos contra 
o totalitarismo mais ou menos acentuado 
de todos os Estados. Enquanto o 
indivíduo não for respeitado em seus 
direitos mais básicos, a humanidade como 
um todo estará seria mente ameaçada. 

Esta ameaça se torna mais concreta no 
momento em que as nações formam 
sociedade cada vez mais informatizadas, 
acentuando o poder de controle daquela 
meia dúzia de paranóicos sobre todos os 
cidadãos. 1984 está aí e o Big Brother já 
é uma realidade. No Brasil, talvez se 
chame SNI, na URSS, KGB, mas ele, sob 
múltiplas facetas já existe. 

Alguns pacifistas insurgem-se contra a 
intenção (patética) de fabricarmos 
bombas atômicas no Brasil, manifestada 
recentemente por algumas autoridades. 
Muito, mas muito mais ameaçador do que 
isto é o projeto de centralização, em um 
único banco de dados, de todas as 
informações referentes à ficha individual 
de todos os brasileiros. 

Se este projeto for levado adiante, a 
maior rapidez na investigação de alguns 
eventuais criminosos implicará no 
controle total e absoluto sobre todos os 
cidadãos. Nestas condições o computador 
se tornará uma arma muito mais letal que 
a própria bomba atômica. Será dado mais 
um passo no sentido de alienar o 
indivíduo do poder de decisão sobre sua 
própria vida e sobre o futuro de seus 
descendentes. 

Se isto acontecer, poderemos dizer que 
o advento do computador real mente 
propiciou a chegada de 1984. 

Feliz Ano Novo! 
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CARTAS DOS 
LEITORES 



Caros amigos, 

... 0 que realmente me levou a escre¬ 
ver para vocês foi o artigo LGM— Mensa¬ 
gem de Vega - Quebra-Cabeça da revista 
número cinco No rodapé da página 22 
existe uma nota fazendo menção à uma 
organização chamada Mensa International 
que muito me chamou a atenção. Como 
eu poderia obter maiores informações a 
respeito dela? Na ocasião vocês afirmaram 
que, escrevendo para esta seção seria pos¬ 
sível obter dados a respeito desta organi¬ 
zação. Gostaria muito que me enviassem 
estas informações, assim que possível. 

Desde já agradeço a sua atenção, certo 
que serei atendido. Fabio Appolinario. 
São Paulo, Capital 

Prezado Fabio, 

Obrigado pelos parabéns. A qualidade 
da Microhobby é nossa maior preocupa- 
ção e é através das cartas de nossos leito¬ 
res que sabemos se estamos no caminho 
certo ou não. 

Para evitarmos responder a todos os 
leitores, individualmente , decidimos pu¬ 
blicar breve mente uma _ 

matéria sobre a __ _ 


Mensa. Pedimo-lhe um pouco de paciên¬ 
cia para que possamos elaborá-la . 

Prezados Senhores, 

Nós, sofredores do TK, ao passarmos 
um programa para o gravador ou vice- 
versa, estamos ávidos para que haja uma 
solução para este sofrimento. 

Por várias vezes, a revista anunciou "a 
solução", como por exemplo, a utilização 
do Tig-Loader (página inteira, a cores na 
número cinco). 

Bem, comprei o tal aparelho, porém 
não obtive resultado positivo algum, a 
não ser que fiquei 15 mil cruzeiros mais 
pobre. 

Agora, a revista anuncia outro "salva¬ 
dor", o CMS/ZX, por um preço camarada 
de apenas Cr$ 19.950,00 Pergunto: "será 
que este realmente vai funcionar? Qual a 
sua sugestão para que eu não corra outro 
risco?" 

Eu sugiro que, para esta revista manter 
sua boa reputação, publique 
somente este -- ^ _ 

EDlTOB. 


tipo de anúncio depois dos aparelhos 
devidamente testados ou então colocar 
em baixo dq anúncio: "Não testado pela 
revista". 

Considero a revista Microhobby exce¬ 
lente e gostaria de manter esta impressão 

Quero deixar claro que o TK é um 
computador com aplicações infinitas e 
estou satisfeito com o mesmo. Willem 
H.J.G. Scheepmaker, São Paulo, Capital 

Caro Willem, 

Diariamente você ouve e vê no rádio, 
na televisão, nos jornais e revistas, nos 
out-door's e luminosos,anúncios afirman¬ 
do por exemplo, que é muito bom fumar 
cigarros, beber refrigerantes,transmitindo 
a idéia de que estes hábitos tornam as pes¬ 
soas mais jovens, inteligentes e bonitas* 
Porém, nem por isso estes meios de comu¬ 
nicação são responsáveis pela veracidade 
dos anúncios pagos. 
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Não estamos dizendo com isto que os 
anúncios existentes na Microhobby não 
são confiáveis, apenas queremos deixar 
claro que a responsabilidade pela quali¬ 
dade dos produtos anunciados é do anun¬ 
ciante!! 

Especificamente com relação ao Tig- 
Loader, informamo-lhe que em muitos ca¬ 
sos, ele é a nossa "salvação" quando ten¬ 
tamos introduzir programas de fitas envia¬ 
das pelos leitores. Claro que' há casos em 
que só mesmo com um "milagre" (coisa 
que os aparelhos não sabem fazer, ainda \) 
conseguimos introduzi-los. 

In felizmente, não possuímos um CMS/ 
ZX e por esta razão não o testamos, mas 
acreditamos não haver problemas com seu 
funcionamento . 

Os Oitenta e Por Dentro do Apple 

Prezados Senhores, 

Como usuário de TK, fiquei muito sa¬ 
tisfeito com o lançamento de uma revista 
destinada aos usuários destas máquinas; 
não tive dúvidas, tratei logo de oficializar 
minha assinatura, pensando no conteúdo 
das seções, bem como nas seções pre¬ 
vistas. 

Gostei muito dos números iniciais, mas 
gostaria de transmitir a minha insatisfa¬ 
ção e creio também que deva ser a de 
grande maioria dos assinantes. 

1. Na seção Hobby ainda não foi pu¬ 
blicado nenhum projeto, como se trata de 
uma revista que conta com a colaboração 
dos usuários para beneficiar usuários, não 
deveria haver problemas na montagem 
desta seção; afinal não se trata de divul¬ 
gar segredo industrial. 

2. Assuntos prometidos para o núme¬ 
ro seguinte e que não são publicados; 
exemplo o artigo "Funções especiais para 
o TK-85", na revista número 4. 

3. Assuntos que nada têm a ver com o 
TK, no caso "Por Dentro do Apple"; tra¬ 
ta-se de tirar esta seção, uma vez que o as¬ 
sunto não é próprio; a revista Microhobby 
é para os usuários do TK. Sugestão; pen¬ 
sem numa revista para usuários desta má¬ 
quina. 

Por fim, gostaria que os senhores enca¬ 
rassem isto como uma crítica construtiva 
visto que, o que foi proposto não está 
sendo cumprido. Rubens Maus - Curiti¬ 
ba, PR. 

Caro Rubens, 

Provavelmente sua preocupação com 
as seções sobre os micros das Unhas Apple 
e TRS-80 é comum a muitos leitores (in¬ 
clusive nós mesmos que, em nossos lares 
possuímos também, micros TK). Nossa 
idéia parece não ter sido entendida com¬ 
pletamente por você. (Vide a seção Des- 
grilandoA Também é comum recebermos 
cartas de leitores que têm acesso a outros 
micros pedindo-nos informações sobre o 
funcionamento dos mesmos. O número 


destas cartas não é desprezível. Justifica- 
se, portanto, a introdução das duas (e 
agora três) seções, uma vez que atende às 
necessidades de usuários do TK. Além dis¬ 
so, mesmo para aqueles que só têm aces¬ 
so ao TK, cremos ser importante (seja co¬ 
mo curiosidade ou como aperfeiçoamento 
técnico) conhecer o funcionamento de 
outras máquinas — é importante não "bi- 
tolar-se"\ 

Imagine que você veja, em algum lugar, 
um excelente programa para o TRS-80 ou 
para o Apple e o queira utilizar no TK. 
Ao invés de escrever-nos, perguntando 
como proceder, acompanhe as seções so¬ 
bre esses dois micros e você mesmo terá 
condições de adaptá-lo ! Para facilitar sua 
tarefa, introduziremos a seção Vice-Versa 
nos próximos números. Nessa seção serão 
expostas formas para traduzir-se progra¬ 
mas do Basic-TK para os do TRS-80, 
Apple e vice-versa. 

Não estaremos tomando espaço do 
TK, uma vez que a quantidade de maté¬ 
rias por edição está cada vez maior (esta¬ 
mos introduzindo três colunas em algu¬ 
mas matérias). Com relação a seção 
Hobby, como você pode notar, começa¬ 
mos a tirar o atraso (pelo qual nos descul¬ 
pamos) neste número. 

Quanto aos assuntos prometidos, só 
podemos dizer que eles foram efetiva men¬ 
te publicados, ainda que com um número 
de atraso. Nós prometemos tomar cuida¬ 
do para que não ocorram novos enganos. 

Suas críticas foram real mente constru¬ 
tivas e esperamos recebê-las, sempre que 
necessário, de nossos leitores. Estamos 
imensamente agradecidos. 

O TK e as antenas parabólicas_ 

Prezados Senhores, 

Fiquei muito interessado com o Que¬ 
bra-Cabeça da Microhobby número cinco. 
Tenho 15 anos, gosto muito de eletrôni¬ 
ca, principalmente de telecomunicações. 
Antes de comprar o meu TK-82C, tinha 
um par de walkies-talkies e resolvi fazer 
uma antena para eles. Com a antena que 
fiz, eles ficaram muito potentes em rece¬ 
bimento de ondas — eu escutava estações 
de todo o mundo. Num sábado à tarde, 
liguei meu rádio e recebi sinais muito es¬ 
tranhos e os gravei. Não sei o que podem 
ser. 

Agora comprei um TK e gostaria de sa¬ 
ber como fazer para ligar uma antena ne¬ 
le. . . João Batista Donegá Filho, Mogi 
Guaçu, SP. 

Caro João Batista, 

Tínhamos a intenção de colocá-lo em 
contato com Nabor Rosenthal, mas infe¬ 
lizmente ele viajou para a índia e deverá 
retornar somente o ano que vem. 

Com relação a MENSA, pedimo-lhe 
que leia a resposta à carta do Fabio Appo 
linário. O 




Horários: diurno, noturno e 
s&bados 


Inscrições abertas 

Revendedor e assistência técnica 

P PROLOGICA 

microcomputadores 


SYS DEZ 

comércio e manutenção de 
computadores ltda. 

Rua das Rosas, 732- Mirandópolis 
CEP. 04048- Tel. 579-8867 


MICROHOBBY 5 


















Reversão do vídeo no CP-200 
e Joystick 

Prezados Senhores, 

Em primeiro lugar, gostaria de parabe¬ 
nizá-los pelo ótimo conteúdo da revista 
Microhobby até o presente momento, 
principalmente pelas dicas e programas 
apresentados, que são úteis e de aplicação 
imediata, como no caso do programa 
PentaSpeed (publicado na revista número 
4) e que efetivamente traz um bom ganho 
de tempo na gravação e leitura de pro¬ 
gramas. 

Em segundo lugar, gostaria de agrade¬ 
cer o envio da fita brinde. Um alerta ape¬ 
nas com relação a qualidade da fita utili¬ 
zada. pois somente após três dias de mui¬ 
tas tentativas, consegui carregar correta¬ 
mente o programa Mansão Maluca, devido 
ao fato da fita trancar no cassete e preju¬ 
dicar a rotação da mesma no gravador. 

Finalizando, apreciaria receber, caso 
possível, duas dicas a respeito de duas 
dúvidas: 

A primeira é com relação a uma fita 
TKDREZ Ida Microsoft,adquirida recente¬ 
mente. Ocorre que, ao rodar a mesmo 
num micro CP-200 da Prológica, obtenho 
a imagem do tabuleiro de xadrez invertida 
na tela. Fui informado que isto ocorre pe¬ 
lo fato do jogo ter sido desenvolvido pela 
Microsoft para o TK-82C, que trabalha 
com inversão de vídeo. Desejo saber se é 
possível efetuar uma inversão de vídeo 
através de soft na fita TKDREZ I, semdani- 
ficar a mesma, ou se é necessário alguma 
adaptação no micro. 

A segunda é com relação ao uso de 


joystick. Desejo saber, se no CP-200 é 
possível a utilização de joystick, ou se é 
necessário, também, fazer alguma adapta¬ 
ção no micro. Luiz Fernando Scheffel — 

Porto Alegre, RS. 

Caro Luis Fernando, 

Ficamos gratos por seus elogios. 

Com relação às suas dúvidas, infeliz- 
mente a solução menos desejável é a única 
que existe. A reversão do tabuleiro só po¬ 
de ser feita com adaptações no CP-200. 
Se você quiser, procure na seção peque¬ 
nos anúncios as informações sobre quem 
pode fazer essa adaptação para você. 
Quanto ao joystick, a Prológica desenvol¬ 
ve um especial mente desenhado para o 
CP-200. Procure no revendedor que lhe 
vendeu o CP-200, provavelmente ele terá 
este módulo. 


Arquivo 

Prezados Senhores, 

... o número 3 de Microhobby está, 
como já me acostumei a constatar, me¬ 
lhor que o anterior. Parabéns! 

Parece que o programa Apagando a Te¬ 
la (revista número 3) veio a responder mi¬ 
nha perguntas sobre as linhas REM. Em 
compensação tenho novamente dúvidas, 
ambas referentes ao programa Arquivo 
(revista número 3): 

1) Porque as linhas INPUT A são se¬ 
guidas de LET A = INT A? 

2) Por que o programa pede para digi¬ 
tar qualquer tecla (linha 4890) se após a 
pausa segue um RETURN incondicio¬ 
nal? E ainda, de novo PAUSE sem POKE? 


Gostei de ver o programa de matemá¬ 
tica financeira (página 10), uma idéia que 
já me ocorrera, mas ainda não conseguira 
desenvolver. Como o Flavio Rossini colo¬ 
cou os pontos e as vírgulas nos seus devi¬ 
dos lugares, o que era a parte mais difícil, 
mas deixou os "milhões" na mesma colu¬ 
na dos "milhares", vai aqui minha modes¬ 
ta colaboração: 

O PR INT de saída deveria ser feito não 
em função de "L" mas de "U", que é a 
variável que "conta" os algoritmos da par¬ 
te inteira de "N", ass ; m a linha 1210 seria 
modificada para: 

1210 PRINT "CR $"; TAB (21-U); N$ 

E para contar também os espaços 
ocupados pelos pontos deveríamos acres¬ 
centar a linha: 

1178 LET U = U + 1 

Obviamente a inscrição "CR $" pode 
ser omitida ou substituída por outra. E na 
"TAB (21-U)" pode ser usado um núme¬ 
ro menor se quisermos "escrever" mais á 
esquerda. 

Por enquanto é só! . Alejandro Luis 
Cobos - São Paulo, Capital. 

Caro Alejandro, 

É com imenso prazer que tornamos a 
responder uma carta sua. As perguntas 
que você nos faz são respondidas abaixo: 

1) A linha LET A = INT A seguindo 
INPUT A é apenas para evitar que o pro¬ 
grama pare se o usuário distrair-se e digi¬ 
tar algum número com digitos não nulos 
após a vírgula. 

2) A instrução PAUSE 30000 produz 
uma pausa de pouco menos de nove mi¬ 
nutos. Quando digita-se qualquer tecla, 
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menos BREAK, a pausa é interrompida 
e o programa continua a rodar. Experi¬ 
mente substituir as linhas: 

ieeo PflusE seeee 
por: 

4 900 ir INKCY$- M " TriEN COTO 490» 

Com relação ao fato de Paute não estar 
acompanhado de POKE 16497,255 temos 
a dizer que não há nenhum problema. 
Apenas os primeiros micros do TK neces 
sitam disso. 

Aproveitamos, também, para agradecer 
as sugestões ao programa do artigo Mate¬ 
mática Financeira em Basic de Flavio 
Rossini. 


Hexamem 

Prezados Senhores, 

Possuo um TK-85 de 48 K e venho 
acompanhando com grande interesse as 
aulas de Assembly na revista Microhobby, 
sendo que, na número 4 (aula número 3) 
deparei-me com um "grilo" na execução 
do programa Hexamem do qual tirei uma 
listagem e cópias da tela para que V.Sas. 
me expliquem o que ocorreu. 

Primeiramente, para rodar o seu pro¬ 


grama tive que "enxertar" a linha 1(32 
SCROLL, pois antes surgia a indicação da 
tela cheia. 

Como V.Sas. poderão observar, o pro¬ 
grama foi rodado com o exemplo da lição 
e ao fazer o comando RUN 300(3, o resul¬ 
tado foi diferente do que está indicado e 
era esperado, por exemplo, a memória 
30000 que deveria registrar 164 e regis¬ 
trou 68. 

Parece-me que não houve erro na digi¬ 
tação do programa, e isso me deixou "gri¬ 
lado". Gostaria de que verificasse o que 
ocorreu, escrevendo-me ou explicando 
o fato na próxima lição. 

Gostaria de saber também o que faz 
as linhas 80 e 85. Fiz um teste dando en¬ 
trada em A$ = "XS” e meu programa 
saiu do ar. 

Na aula número 2 (revista número 3) 
féz-se referência a um livro ("... 16 K pa¬ 
ra que se possa executar os programas 
mais interessantes deste livro. . Gos¬ 
taria de saber se vocês já o editaram e, 
caso positivo, como posso adquirí-lo. 

Agradeço-lhe antecipadamente, e nesta 
oportunidade valho-me do ensejo para pa¬ 
rabenizá-los pelo excelente nível de en¬ 
sino e pela excelente didática de suas 
aulas publicadas. Joaquim J. Mariano, 
Goiânia, GO. 


Caro Joaquim, 

Cremos que você teve que introduzir a 
Unha 102 SCROLL por erro de digitação, 
pois na linha 60 já existe o comando 
SCROLL. O mesmo deve ter ocorrido 
quando você introduziu os digitos A 4 (he¬ 
xadecimal). O código 68 que você obteve 
na memória 30000 corresponde a 44 (em 
hexadecimal) e é provável que você tenha 
digitado 44 ao invés de A4. 

As linhas 80 e 85 (e também 130, 135, 
140 e 145) tem sua utilidade esclarecida 
na lição número 4 do curso de Assembly 
ÍMicrohobby número 5). De qualquer for¬ 
ma, seu programa não deveria ter "saído 
do ar" como aconteceu. Novamente, você 
deve ter digitado algo errado numa das li¬ 
nhas citadas acima. Se nós estivermos en¬ 
ganados, então seu TK-85 está com de¬ 
feito. 

O livro referido é o Linguagem de Má¬ 
quina para o TK — volume I" que já foi 
editado. Você pode adquirí-lo enviando 
um cheque nominal e cruzado ou um vale 
postal no valor de Cr$ 8.000/X) para 
Micromega P.M.D. Ltda. Cx. Postal 
54121, CEP 05096 - São Paulo, SP. 
Junto ao cheque, anexe seu nome, ende¬ 
reço completo e o motivo (livro) pelo 
qual você o está enviando. 
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VOCÉ PODE MODIFICAR SEU COMPUTADOR 

JOYSTICK 

Com 6 funções e muito mais prático 

CMS 

Calibrador e moduiador de sinal para a leitura de programas 
em fitas K7 

POLISOFT 

Jogos e aplicativos de alta qualidade • : 


SUPER CP 200 

Teclado numérico e funções com autoshift 
Chaves de inversão de video e Bip 
Auto repetição e Auto Function 
Saídas para 2 Joysticks 

CORES E ALTA RESOLUÇÃO 

Para todos os micros de lógica Sinclair 

KmÀIORES IN FORMAÇÕES NAS LOJAS ESPECIALIZADAS OU ESCREVENDO PARA 

POLIMICRO 

Av. Andrade Neves. 1254 — 13100 — Campinas — S.P - Fone (0192) 8 8082 X.*:.. 
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Traduções para o TK 

Prezados Senhores, 

. . . gostaria que me orientassem na 
transcrição dos comandos (funções subli¬ 
nhadas na xerox anexa) para o Basic do 
TK-85. 

... 20 t = 0 

60DIM V(3),X(3).P(3),R(3,3) 

70 MAT V = ZER 
80 MAT X = ZER 
90 MAT P = ZER 

100 MAT R = ZER 

110 DATA 1,2,2,3,3,1,1,3,3,2,2,1,2.3, 
3,1,1,2,0 

120 PRINT "WELLCOME TO 'WAR3'. 
TWO OR THREE HUMANS MAY 
PLAY! " 

130 PRINT "DO YOU WISH SOME 
ASSISTANCE";. . . 

...290 FOR J = 1 TO NI 
300 READ A,B 

310 PRINT "DISTANCE" (FT.) 

A;" TO B; 

320 INPUT R (A,B) 

330 R(B,A) = R(A,B) 

340NEXT J 
350 PRINT" " 

360 RESTORE- 

370 IF N = 2 THEN 460 

380 FOR J = 1 TO N 


390 READ A,B,C,D,E,F 

400 IF R (A.B) < R(C,D) + R(E,F) 
THEN 440 

410 PRINT "ERROR - ILLEGAL 
TRIANGLE. RE-ENTER RANGES." 

420 RESTORE 

430 GOTO 290 

440NEXT J . .. 

Grato e parabéns. Paulo Roberto B. 
Bergo, São José dos Campos, SP. 

Caro Paulo Roberto, 

Ficamos muito gratos pelos seus elo¬ 
gios, pois é motivo de orgulho para nós, 
sabermos que estamos agradando. 

Quando as informações sobre as 
TP/ak's, você as encontrará nos números 
anteriores. 

As tinhas que você sublinhou em seu 
programa são de fácil adaptação para o 
Basic-TK e se você conseguir traduzir 
completamente o programa, gostaríamos 
que o en vi asse para ser publicado em nos¬ 
sa revista. 

Você sublinhou as Unhas: 

70 MAT V = ZER 

80 MATX = ZER 

90 MATP = ZER 

110 DA TA 122.3,3,1,1,3,322,122, 
3,1,12,0 


Além dessas Unhas, teremos que tradu¬ 
zir também as que seguem: 

60 DIM V(3t, X(3), P(3), R(3,3) 

100 MAT R = ZER 
300 READ A,B 
360 RESTORE 
390 READ A,B,C,D,E,F 
420 RESTORE 

A adaptação para o TK, fica assim: 


ee 

DIM 

D (3) 

ei 

DIM 

X (3) 

ee 

DIM 

P (3) 

63 

DIM 

R C 3,3 ) 

e.4 

FOR 

2-1 TO 3 

es 

LET 

V(Z> 

66 

LET 

X(Z) *U<Z) 

67 

LETT 

P (Z) =U <Z> 

70 

POP 

V-l TC 3 

80 

LET 

R CZ,Y> (ZJ 

90 

NL2XT 

Y 

loa 

NEXT 

• z 

no 

LET 

ü$=" 1223311332212331120 

28*5 

LET 

Z = 1 

300 

LET 

RsURL D*(Z> 

303 

LET 

B=UflL D$ ( Z 4- 1 > 

306 

LET 

Z^Z*1 

360 

LET 

Z = 1 

390 

LET 

R=URL D$'Z) 

391 

LET 

P=UflL D*(Z + 1> 

392 

LET 

C=URL Dl(Zt2) 

393 

LET 

D=URL D$<Z+3> 

394 

LET 

E-Vn L Dí(ZUI 

395 

LET 

F —URL D*(Z+5J 

396 

LET 

Z=Z*6 

420 

LET 

Z«1 


Esperamos que você tenha êxito em 
seu empreendimento e aguardamos ansio¬ 
samente os resultados. O 



ALÉM DE MICROCOMPUTADORES 

VOCÊ ENCONTRA AMIGOS! 


Computadores 
Periféricos 
Suprimentos 
Video-Games 
Video-Cassetes 
Desenvolvimento de 
Softwares Aplicativos 
Basic I 
Basic II 

Cursos Especiais 


MELHORES PREÇOS DO MERCADO. 
MELHORES CONDIÇÕES DE 

PAGAMENTO. 

DEMONSTRAÇÃO DE TODOS OS 
EQUIPAMENTOS. 

ASSISTÊNCIA TÉCNICA PERMANENTE. 

E TEM MAIS: 

DURANTE A MANUTENÇÃO VOCÊ 
NÃO FICA SEM EQUIPAMENTO! 


COMPUTE 

SISTEMAS E 
COMPUTADORES LTDA. 

RUA ESTADOS UNIDOS, 2141 - Cep 01427 
(Prox. Av. Rebouças) 

Tel.: 852-8533 

São Paulo - SP 
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DICAS 

Muitas vezes vamos digitar um progra¬ 
ma em linguagem de máquina e se torna 
necessário criar inicialmente, uma linha 
REM com muitos pontos, o que é um tan¬ 
to quanto trabalhoso. 

A dica deste mês é um programa capaz 
de criar esta linha REM, evitando assim, 
que vocé fique digitando "n" pontos. . . 

Inicialmente digite o programa 1 (à li¬ 
nha REM deve ter 96 pontos). 


^eORNI 

FOR 


1 RCM l_N 77* + e&tHO F«3T *7 
RH0 v A0RH09eRN0V.77?3TR| POR « 
—R ?F777XC*3GN ✓ INPUT LPRIKT 
FR3T • LLI3T RNOH GOSUO PI?? LPR 
INT GOSUO 3TOP RNOO 70»7RT 

7777| REM ir “71 ■ POR ; POR O. GO 


7777© RPM w “7> _ 

SUO ftS?OLN P7TWH 

S POR I>165U TO 
3 3CPOLL 
4. PRIKT I 
5 INPUT X 
O PRIKT X 
7 POKC I,X 
O NP XT I 



Aperte a tecla RUN e digite os núme¬ 
ros da listagem decimal a seguir: 


10314. 
LO SIS. 
ifisie. 
10320. 


16550 •. 3 

isssa. 


10513.. 

10517.. 

16519.. 

10331.. 

10523.. 

íosas., 

10527.. 

10529.. 

10531.. 

10333.. 

10330.. 

10537.. 

10339.. 
1034.1. . 

10543.. 
10543. 
10547. 

10349.. 
10331. 
10333. 
10535. 

10537.. 
10559. 
10501. 
10503. 
10505. 
10507. 
10509. 
10371. 
10373. 
10373. 
10377. 
10579. 
10301. 
10503. 
10303. 
10507. 
10309. 
10591. 
10393. 
10393. 
10597. 
10099. 
10661. 
ir- 

ic 


33 
1 

• 

130 

229 

OO 

42 
04 

34 
04 
12 
02 
94 
OO 
233 
233 

43 

33 
Ol 
3 

24 

223 

1 

04 

237 

OO 

223 

104 

227 

34 
33 

• 2 

193 

3 

33 
33 
.234 
. 11 
. 17 
.9 
26 
.34 
. 237 
.54 
.32 
.43 
.201 


LZSTAGCH DCCIHRL 


Ao terminar de digitar a listagem, peça 
ao computador para mostrar a listagem, 
por meio de tecla LIST A linha 1 REM 
contém vários caracteres que representam 
o programa em linguagem de máquina, 
que criará a sua linha REM. 


Retire as linhas 2 a 8 e digite as novas 
linhas do programa 2. 


LH 77* f PRST .7 

M05C RNOY ■*'*773TR % FOR ■» 
XC^SGN ✓ INPUT LPRINT 


1 RPM 

PDRNO^OQRNO 

POR 7P777XC_ _ __ 

FR5T d LLIST PNOfl GOSUO PI7** LPR 
INT GOSUO 05 STOP RNDO 70 *7RT 
77770 RPM 7) • POR . POR O. OO 
SUO 0D7OLN F7TRN 

3 PRIKT *’ COMPRIMFKT O OR RPM 

4 INPUT C 
3 PRIKT C 
O PRUSE OO 

7 POKC 10514,C-250 »INT IC 

O POKC 10315,INT ÍC/256) 

9 RRNO USR 10510 
19 CLS 
11 LIST 2 


PROGRRMR 2 


Vamos ver como este programa fun¬ 
ciona? 

Ponha o programa para funcionar. A 
seguir, digite o comprimento que a sua li¬ 
nha REM deveria ter e, num piscar de 
olhos, o programa gera uma linha 2 REM, 
com o número de pontos que vocé dese¬ 
java. 


1 REM * LN 77* f EW)ND FR5T ■»? 
'♦CORNO^OPNDStRNOY.^STRi FOR « 

POR '>F # ’77XC*5GN 7 INPUT LPR INT 
PRST • LLIST RNOa GOSUO PI77 LPR 
INT OOSUO 05 ST OP RNOG 70 *7RT 
*>7770 REM " 7) • POR . FOR O. GO 

SUO 0O"OLN F7TRN 

2 RPM . 

3 PRINT “COMPRIMENTO D« REM " 

4 INPUT C 

5 PRIKT C 
O PRUSP 60 

7 POKC 10314,C-230♦INT (C/336 

O POKC 10313,INT (C/3961 
9 RMNO USR 16S16 
1# CLS 
11 LIST 2 


Agora que vocé já testou o programa 2 
e sabe como ele funciona, retire a linha 2 
e grave o programa em uma fita de boa 
qualidade. 

E toda vez que vocé for digitar um 
programa em linguagem de máquina mui¬ 
to longo, carregue este programa e digite 
o número de pontos que precisar. Depois, 
é só retirar as linhas desnecessárias ao pro¬ 
grama que vocé vai digitar. O 


A 

LINHA 

REM 

Nancy Miti# Artga 
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PEQUENOS 

ANÚNCIOS 


— TROCO Programas nacionais e im¬ 
portados (recuso qualquer pagamento em 
dinheiro) para o TK-82, 83 e 85. Tratar 
com Elington pela Caixa Postal 39003 - 
CEP 21490. 

— VENDO diversos solos em lingua¬ 
gem de máquina, para o TK-82C e TK-85. 
Tratar com Marco Antonio pelo tel.: 
225-7507 - Belo Horizonte - MG. 

— TROCO Programas (jogos) e idéias 
para o TK. Tratar com José Augusto S. de 
Campos. Av. Dr. João S. Alves de Carva¬ 
lho, n9 530 — Jardim Ipiranga - Porto 
Alegre — RS — CEP: 90000. Mandar da¬ 
dos pessoais e programas. 

-VENDO super TK comhigh speed, 
gravação independente de dados, inversão 
de vídeo por soft ou chave, controle re¬ 
moto do gravador (soft ou chave), tecla 
reset alta-resolução, 16K e função slow, 
junto com programas em linguagem de 
máquina. Jogos e aplicativos. Informações 
com César pelo telefone: 201-8409 (nos 
fins de semana). 


-PROCURO LEITOR que tenha es¬ 
quema da interface e som para o TK, ou 
alguém que o construa. Esquemas e/ou 
propostas para Paulo A. Fessel. R. Gene¬ 
ral Góis Monteiro, 113 - Piracicaba - SP. 
Também procuro pessoas que tenham o 
nP 1 da Microhobby, para enviar-me duas 
cópias xerox no mesnr>o endereço. 

-VENDO TK-85 com alta resolução 
jogos, joystick, tudo por Cr$ 250.000,00. 
Três meses de uso. Tratar com Edson. 
CEP: 04437. R. Manoel Vaz, 265 - Jd. 
Consórcio - Sto. Amaro,-SP. 

- VENDO ou TROCO programas para 
os similares de CP 200, tais como: TK-82, 
83, 85, e outros , aos interessados 
escrever para: Adelson de Carvalho A. Jr. 
Rua da Hora, 465 - apto. 102-B - Reci¬ 
fe, PE - CEP: 50000. 

— Making The Most of Your ZX-81. 
Getting Acquainted with your ZX-81. 
Tratar com Edison - Fone: 235-3479. 
Hor. Comercial — Cx. Postal 7252 — CEP: 
01031 - SP. 



— COMPRO Interface para máquina 
elétrica (datilografia-impressora). Propos¬ 
tas para Roberto de A. Santos. Rua U- 
ruguai, 205, apto. 803 - Tijuca, RJ - 
CEP: 20510. 

— Estou interessado em comprar uma 
TK-Printer usada. Comunicar-se com 
Rubens Maus - Rua Luiz Dallagassa, 208 
Vila Haver — CEP: 80000 — Curitiba, PR. 

— TROCO Programas para Micros 
TK-82C e similares. Possuo o Frogger, 
Mazógs, SnakeBite, Galaxy e outros. Tra¬ 
tar pelo tel.: 8534717 (c/ Sérgio) - São 
Paulo — SP. 

— Desejo corresponder-me jom usuá¬ 
rios de micros similares ao TK82-C resi¬ 
dentes em Blumenau, para TROCA de 
programas. Escrever para Zoltan Bergman 
- Cx. Postal 2172 - CEP 89100 - 
BLUMENAU, SC. 


LANÇAMENTO 


Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 

própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 



Saídas: Expansão memória/impressora 
Fonte externa ou interna 
Rodo 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 



INTER-COL IN D. E COM. LTDA. 

Depto. Vendas - Av. Alda, 806 - Diadema (Centro) 
fone: 456.3011 


Os pedidos registrados no mès de Janeiro , terão preço de 
lançamento de Cr$ 87.000,00 

Linha da Fabricação: 

Chaves comutadoras 

Tecias e teclados semi profissionais 

Teclas e teclados profissionais 




Micros e Minis 
Nacionais 

Sistemas Aplicativos 
Periféricos, 
Equipamentos, 
Móveis, etc. 


KYW INFORMÁTICA 


Rua da Lapa. 180 gr 1 108/1 110 CEP 20 021 
Telex (021) 30980 Rio de Janeiro RJ 


telefone: (021) 


252-3527 
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EDM 



MAIS SUCESSO FARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 


CURSOS Df APERfflÇOAMINTO 


1 m- iâlTOADIWTCCil n/V) CC 


. 


São mais de 140 apostilas com informações completas e sempre 
atualizadas Tudo sobre os mais revolucionário CHI PS E você 
recebe, além de umasòhda formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 



mm m mm £3 


um • e * 

CEDM 20 KIT 

«■A f 

de Ferramentas. 


CEDM 78 KIT 

£ * h 

Fonte de Alimentação 


5v/1 A CEDM 35 KIT 


Placa Experimental 

■■ f f 1 D 

CEDM 74 KIT 

* •• 1 

de Componentes 

|L 3 £ \ 

CEDM 80 

1 x 1 e» ^ 

MICROCOMPUTADOR 


Z80 ASSEMBLER 






Este CURSO, especiaimente programado, oferece os 
fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dmámico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluindo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação. Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados 




Métodos novos e inéditos de ensino garantem um aprendizado 
prático muito melhor. Em cada nova lição, apostilas ilustradas 
ensinam tudo sobre Amplificadores, Caixas Acústicas. Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores. Microfones. Sonorização, Instrumentação de Medidas 
em Áudio. Técnicas de Gravação e também de Reparação em Áudio 


CEDM 1 KIT de Ferramentas. CEDM 2 KIT Fonte de Alimentação 
♦ 15 15/1A CEDM 3 KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 KIT Pré-amplif ícador 
Estéreo CEDM 6 KIT Amplificador Estéreo 40w. 


Você mesmo pode desenvolver um ritmo próprio de estudo. A lin¬ 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca á sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 
recebe KITS preparados para os seus exercícios práticos. 

Agil, moderno e perfeitamente adequado à nossa realidade, os CUR¬ 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


iGRÁnsi 


Você também pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dias vocé recebe nossos catálogos de apresentação. 



Avenida Sio Paulo, 718 - Fone (0432) 23-9674. 

I CAIXA POSTAL 1642 - CEP 86100 Londrina • PR 
CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 

Solicito o mais rápido possível informações sem compromisso sobre o 
CURSO de. 

Nome... 

Rua. 

Cidade. 

Bairro.CEP .. 




-J 
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VARIÁVEIS INDEXADAS 
MATRIZES - FLAGS 


Na aula número 1 introduzimos a pa¬ 
lavra-chave LET, que associava à uma va¬ 
riável numérica um "lugar" na memória. 
Entretanto, existem ocasiões em que é de¬ 
sejável armazenar vários valores para uma 
"mesma" variável, distinguindo seus dife¬ 
rentes valores através de índices entre pa¬ 
rênteses; seria como se construíssemos 
uma tabela na memória, à qual denomina¬ 
mos matriz. Assim, temos a palavra-chave 
DIM (tecla D) cuja função é reservar espa¬ 
ço na memória para os valores que dese¬ 
jamos colocar, atribuindo inicialmente va¬ 
lor zero a todos eles. Experimente então 
o seguinte programa: 


10 

SLOU 


20 

DIM XC5) 


30 

FOR 1*1 TO 5 
PRINT ~x 


40 

x ci) 

50 

NEXT I 


60 

PRINT 


70 

FOR 1-1 TO 5 
PRINT **X C '*; I; 


80 

-7 .. 

90 

INPUT XCI) 


18*0 

PRINT RT 1*5, 

5; x (X) 

110 

NEXT I 



Na instrução 20 reservamos espaço na 
memória para cinco valores de X colocan¬ 
do inicialmente valor 0 (zero) para os 
mesmos; a seguir, usando INPUT, associa¬ 
mos valores aos vários X's e usando um 
"pequeno truque" na linha 100 escreve¬ 
mos, na tela, os números colocados. 

Note que há diferença de significado 
dos índices: com a palavra-chave DIM ele\ 
indica o tamanho máximo da tabela; nas 
demais instruções, ele indica aposição na 
tabela. 

0 que acontece se, no programa ante¬ 
rior, colocamos a linha: 


«5 DIM X <5> ? 
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Infelizmente no Basic-TK as variáveis 
indexadas têm uma limitação: ao contrá¬ 
rio das variáveis normais, seu "nome" po¬ 
de ter apenas uma letra; assim, por exem¬ 
plo, o seguinte comando é inválido: 


DIM PftZIOA) 


Em contrapartida, é possível fazer ma¬ 
trizes (TABELAS) com mais de uma di¬ 
mensão (até 255 dimensões). Por exem¬ 
plo, duas dimensões são facilmente ima¬ 
gináveis se pensarmos em linhas e colunas. 

Por exemplo: 


R l; - , j; - 


1© DIM RO,4» 

20 FOR 1*1 TO 3 

3© FOR U*1 TO 4- 

4 0 PRINT RT 4. ,4-; ' 

c?” 

B0 INPUT n«I,vi> 

60 PRINT RT 4,11;R(I,J) 

70 PRU5E 90 

80 CLS 

90 NEXT U 
100 NEXT I 
110 PRINT TRB 4;"MRTRIZ ESCOLHI 
Dfl" 

120 PRINT 

130 FOR 1*1 TO 3 

140 FOR J=1 TO 4 

150 PRINT RT 3«If2,4»J;R(I,J) 

160 NEXT J 
170 NEXT I 


Repare que na linha 10 reservamos es¬ 
paço para uma tabela de três linhas e qua¬ 
tro colunas, ou seja, para 3x4 = 12 variá¬ 
veis com valor inicial zero. 

A seguir, você deve fornecer os valores 
para cada variável (INPUT) efinalmentea 
matriz é colocada na tela. 

Note que, estamos usando um loop 
dentro de outro loop: desta maneira, o 
loop interno será repetido tantas vezes 
quantas forem indicadas pelo loop exter¬ 
no. Note que os NEXTs devem aparecer 
em ordem inversa aos FORs, ou seja: 
i-FOR I = . .. 
f“ FOR J = ... 

LNEXTJ 
L NEXT I 


Repare no uso da instrução AT para a 
formatação da saída na linha 150, com es- 


Pierluigi Piazzi 
Flavio Rossini 

ta formatação, qual o número máximo de 
algarismos que posso usar para cada va¬ 
lor? É possível aumentá-lo? Você saberia 
"imaginar" uma matriz com três ou mais 
dimensões? 


Noção de FLAG: 
utilização na ordenação 
de números * 


Denominamos FLAG a uma variável 
auxiliar cuja função é indicar a ocorrên¬ 
cia ou não de determinada condição du¬ 
rante a execução de um programa. Uma 
utilização prática para este tipo de variá¬ 
vel, está na ajuda em descobrir "erros" 
em programas razoavelmente complica¬ 
dos, principalmente aqueles com um gran¬ 
de número de instruções IF. Nestes pro¬ 
gramas, a quantidade de "caminhos" pos¬ 
síveis é muito grande, o que dificulta a 
análise do mesmo, "passo a passo", con¬ 
forme fluxograma ao lado. 

Que corresponde a: 


10 5LOU 

20 PRINT RT 4,3; ••OURNTOS NUMER 
OS DEVO ORDENRP7MRX. C22)" 

30 INPUT N 
40 DIM NCN) 

43 CLS 

50 FOR 1*1 TO N 

60 PRINT RT 4,4; M NI";X;")*?" 

70 INPUT NtX) 

60 NEXT I 
90 FP5T 
100 CLS 
105 LET F-0 
110 FOR 1*1 TO N-1 

120 ir NCI) < =N(I♦1) TMEN COTO 1 

70 

130 LET F *1 
140 LET D*N Cl) 

150 LET N(I)*N(I♦1) 

160 LET N < X + l) -5 
170 NEXT X 

100 IF r*1 TMEN GOTO 103 
190 5LOV 

200 FOR 1*1 TO N 
210 PRINT VRB 3;NCI) 

220 NEXT X 


Repare o uso do DIM (linha 20) para 
reservar espaço na memória para 22 nú¬ 
meros que deverão ser fornecidos ao com¬ 
putador através do INPUT na linha 70. 
Note a mudança de velocidades de 
SLOW para FAST e, a seguir para SLOW; 
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RESPOSTAS DOS EXERCÍCIOS 
DO CURSO DE BASIC 


FLUXOGRAMA 


2) a — Ele imprime o valor de A que é igual a 
5, e o valor de B que é igual a 10 
Apesar do valor de B náo estar no programa, 
ele está na memória do computador 

b - O micro acusará o erro na linha 200, 
pois a linha 150 "limpou" a memória do micro. 

c - Se for acrescentada a linha 400 NEW. o 
micro imprimirá os valores de A a B e limpará 
o programa da memória 


A partir deste número de Micro* 
hobby passaremos a publicar as respos¬ 
tas do Curso de Basic continuamente. 
Nesta edição, vocês terão as respostas 
dos exercícios desde o inicio, ou seja , 
a partir da revista número dois até a 
última edição, número 6. 

As respostas dos exefçícios desta 
edição, publicaremos na próxima re¬ 
vista (oito) de Microhobby. Assim 
sendo, nossòs leitores ficarão sempre 
em dia com o Basic. 


Aula 3 


10 FOR R«0 TO 21 
20 PRINT TRB R,R 
30 NEXT R 


2)1 


Aula 2 


10 POR R • 1 TO 21 
20 PRINT TRB R; "■ 
30 NEXT R 

3) a -i 


10 RRNO 

23 PRINT -LOTERIR" 

30 FOR R*1 TO 13 
AO PRINT XNT (RNO*3>*1 
50 NEXT R 


10 LET HOPE-6 
20 PRINT "HOPC - **, MOPE 

30 PRINT -HOPC 42» "; MUPF 42 
AO PRINT " 3 *HOPE - “;3*NOPE 
50 PRINT "5 *7 • 

60 COTO 60 


10 RRNO 

20 PRINT ”LOTERIR~ 

30 LET R-l 

40 FOR B*1 TO 13 

50 LET C»INT IRNO*3> *1 

60 PRINT *' JOGO fl, "COLUNR 

70 LET R*A4l 

60 NEXT B 


isto porque a tela não é necessária en¬ 
quanto o computador faz a "ordenação". 
Note também que o loop de ordenação 
faz o contador I variar de 1 até N—1, pois 
caso contrário, ao chegar no último nú¬ 
mero, iríamos obter um erro (Por que?). 

Finalmente, repare no uso da variável 
B como auxiliar para fazer as trocas e o 
uso do mesmo nome (N) para a variável 
indexada, e para a variável que indica 
quantos números devem ser ordenados; 
elas são distinguidas pelo computador, 
pois esta última não possui índices en¬ 
tre parênteses. 

Para finalizar a aula, apenas uma obser¬ 
vação quanto aos índices; eles devem ser 
sempre números inteiros e positivos. 

Exercícios: 

1. Altere o último programa da aula 
para que imprima uma mensagem de erro 
se na linha 30 for introduzido um número 
maior que 22. Além disso, faça com que 
ele coloque os números em ordem decres¬ 
cente. 

2. Elabore um programa que, dada 
uma matriz bidimensional quadrada (nP 
de linhas = n9 de colunas) calcule seu de¬ 
terminante. 

3. Faça um programa que seja capaz de 

"ler" duas matrizes de duas dimensões e 
calcule a soma e diferença "imprimindo" 
na tela a matriz-resultado. O 


4)1 


10 RRNO 

20 PRINT -LOTERIR-; TRB I0;1;TR 
15; "X"; TRB 20,2 
30 FOR R«1 TO 13 
AO LET T.1©*S#<INT <RND*3>> 

60 PRINT "JOGO -;R;TRB T;"X" 

60 NEXT R 


10 LET 1*10 
20 LET F«10 
30 PRINT RT I,F;~4" 

4 0 L ET F • F ♦ 1 

45 IF F <32 THEN COTO 30 

50 LET I.I41 

55 LET F-O 

60 COTO 30 


Aula 6 


: - 

10 INPUT N 

20 IF N <0 OR N < > XNT N THEN COT 
O 60 

30 LET M«1 
35 LET I*N 
40 LET M-M*X 

50 LET I-I-1 _ 

60 IF 1=1 TMEN PRINT “FRT. ~;N 
M 

70 IF Iml THEN STOP 
75 GOTO 40 

60 PRINT -NUMERO NRO RCEITO** 

90 GOTO 10 

2 ) 8-1 


10 INPUT N 
20 IF N-2 *INT 
NT N; - E* PRR" 

30 ir N-2 €INT 
NT N;" £• IMPRR- 


(Nx2)-0 TMEN PRI 
(N/2>»1 TMEN PRI 


10 INPUT N 

20 IF N-6#INT CNX6)-0 THEN PRI 
NT N; - E* MÚLTIPLO DE 6" 

30 IF N -61 INT (N/ô)<>0 THEN PR 
NRO E* MÚLTIPLO DE 6" q 


INT N; * 
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MINICALC 


Atualmente no mercado estão à venda 
uma grande variedade de Visicalcs, que 
são planilhas eletrônicas que possibilitam 
a manipulação de informações com maior 
facilidade e ocupando o menor espaço na 
memória do computador. 

Apresentamos aqui um Minicalc, que é 
uma redução dos Visicalcs que estão à 
venda. Este Minicalc foi planejado para o 
controle de um orçamento doméstico 
(calcula o total das despesas e o saldo 
do mês). 

Para iniciar o programa (veja programa 
na página seguinte), digite RUN e apare¬ 
cerá na tela uma parte da planilha. Impor¬ 
tante: na tela aparecerão sempre as colu¬ 
nas das Contas de dois meses. 



ENTRftDfl DE DADOS 0,1 

•ar 


A planilha está dividida em várias cé¬ 
lulas, que estão organizadas por coorde¬ 
nadas (coluna, linha). Por exemplo: a con¬ 
ta ENTRADA corresponde ao dado (0,1); 
a conta LUZ (0,4), o mês de JANEIRO 
corresponde à coluna 1, e assim por 
diante. 

Primeiramente, digite as contas nas cé¬ 
lulas da coluna "0" Sua planilha ficará 
assim: 
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Após o preenchimento desta coluna, 
digite o comando desejado. 

EN - entrada de dados 
AL - alteração 
CA — cálculo do saldo do mês 
DX - move a planilha para a direita 
EX — move a planilha para a esquerda 
IM • imprime as despesas do mês 
SA - grava o programa e os dados da 
planilha 

Para a ENTRADA DE DADOS (linha 
60 a 220) digite EN e NEW UNE e de¬ 
pois o mês. Digite apenas os valores da en¬ 
trada do mês e as despesas (luz, água, tele¬ 
fone, alimentação). Para digitar as outras 
células basta apertar a tecla NEW LINE, 
pois elas serão preenchidas na rotina de 
cálculo. 



Caso haja alguma alteração a ser feita 
(linha 410 a 530) digite AL e N.L., em 
seguida o mês em que será feita a altera¬ 
ção e a linha a ser alterada. Depois, in¬ 
troduza o novo valor desta célula. Por 
exemplo: mês 1, linha 6 para 6000 



*• 6000 ” 


Sua planilha ficará assim: 


0:ENTRADA 

10)0000 

HÜASS 


g SRLD.flMT. 




g: TOT.ENTR. 




Q: LUZ 

5030 



5:AGUA 

4000 



Q : TELEFONE 

ecoo 



3 ALIMENT. 

20000 



y TOT.DESP. 




g. SALDO 





COMANDO ?<tN,fiL,CR,DX,CX,lH,SR> 


Quando todos os dados estiverem cor¬ 
retos, digite CA e N.L. Esta rotina de 
CÁLCULO (linha 720 a 840) coloca o sal¬ 
do do mês anterior no saldo anterior des¬ 
te mês (linha 760); soma a entrada do 
mês com o saldo anterior, colocando o re¬ 
sultado no total da entrada (linha 770); 
calcula o total das despesas (linha 780) e 
calcula o saldo do mês (linha 790). 





































































Digite o programa anexo e verifique 
o funcionamento deste Minicalc que 
apresentamos. Mas digite exata mente 
como a listagem se apresenta , sem alte¬ 
rar nomes ou números , caso contrário 
a Soma Sintática não será a mesma (o 
programa Soma Sintática deve ser co¬ 
locado na RAMTOP, portanto antes 
de digitar o programa) * 


ie DIM U$(13,9,9) 

20 DIM U(13,9) 

30 LET C-O 
4.0 REM EN 
50 GOTO 130 

60 PRINT RT 21,0,"NES* 

70 INPUT M 

75 IP H)12 OR M\1 THEN GOTO 70 
00 LET C*N 
GO PRINT RT 21 - 5; fl 
103 FOR F = 1 TO 9 
HO LET U$(M + 1,F) b" ~ 

120 NfclXT r 

130 FOR D=1 TO 9 

140 GOSUB 650 

153 PRINT RT 21,0;"ENTPRPfl DE D 

0005 c; D 

160 INPUT h$ 

170 1 F COOE rt*<=27 OR CODE H$>= 
33 THEN LET UlC+l.D) 

160 IF CODE H J >27 RND CCDE H*<3 
O THEN LET U(C*1,D>*URL H$ 

190 LET NsLEN H> 

200 IF OO THEN LET U*(C + 1,D,10 
-N TO ) =H* 

210 IF C-0 THEN LET U«CC+1,D>*H 

* 

220 NEXT D 

230 GOSUB 650 

240 PRINT RT 21,0, '‘COMANDO ?<EN 
,RL,CP,DX,EX, IM,SR >** 

250 INPUT H $ 

260 IF Hí»"DX" THEN GOTO 330 

270 IF HÇ ="EX" THEN GOTO 370 

260 IF Hís"CR" THEN GOTO 720 

THEN COTO 4.10 

THEN GOTO 60 

THEN GOTO 540 

THEN GOTO 650 


MEMÓRIA OCUPADA: 

3.108 bytes 

SOMA SINTÁTICA: 

56.320 


* Veja Microhobby 5 ou X . 


560 PRINT RT 21,0,"ÚURL O ME5 7 
575 IF P ÍÍ>12 OR H < 1 THEN COTO «7 

e !SS rPR?HT RT 2 h 

0+1 TO CM*011 
600 LPRINT 

610 FOR Dal TO 9 _ „ 

620 LPRINT U « ( 1 , D ) , •* .";U»C 

H ♦ 1 , D ) 

630 NEXT D 
640 GOTO 230 
650 REM SR 

660 PRINT RT 21,0;"PREPARE O GR 
RURDOR E APERTE N . L . ** 

670 PRUSE 3000 

660 PRINT RT 21,0;"APERTE O REC 

DO GRRUROCR 

690 PRUSE 150 

700 SRUE ’*HINICALC" 

710 GOTO 230 
720 REM CR 

730 PRINT RT 21,0; "OURL O MES -> 


735 INPUT M 
740 IF M >12 OR 


I <1 THEN GOTO 73 


290 IF Hfie-RL' 

300 IF H*»~EN" 

310 IF Hfs"IM" 

320 IF Mf.-SR" 

325 GOTO 250 

330 REM DX 

340 LET NsHfl 

350 IF M >11 THEN LET Mall 

360 GOTO 230 

370 PFH EX 

380 LET M«H-1 

390 IF M < 1 THEN LET Mal 

400 GOTO 230 

410 RCH RL 

420 PRINT RT 21,0,"MES* 

430 INPUT M 

435 IF M > 12 OR M<1 THEN GOTO 43 
O 

440 PRINT RT 21,5;H;*’ LINHO» **; 

450 INPUT Z 

455 IF 2>9 OR 2<1 THEN GOTO 45® 
460 PRINT Z 
470 INPUT H % 

460 LET U*<M + 1,Z)»‘ •* 

49® IF CODE H$ < =27 OR CODE H$>* 
38 THEN LET U(M+1,Z>=0 
500 IF CODE H$>27 RND CODE H»<3 
0 THEN LET U í f 1 ♦1.2) aURL H* 

510 LFT N=LEN .H % 

520 LET Ui(M+1,2,10-N TO )*H$ 
530 GOTO 230 
540 REM IM 
550 LET Bjs 


745 LET C-H 
750 FR5T 

76© LET UCC+1,2)aUCC,9) 

770 LET U (C + 1,3) *U(C*1,1) +UCC + 1 

,21 

780 LET U<C+1,8>*U(C+1,4)♦UlC+l 
,5) ♦U(C*1,6> ♦UCC*1,7» 

790 LET U(Cfl,9)«U(C*l,3)-Ulofl 

, 8 ) 

800 FOR Fel TO 9 

810 LET- N=LEN STR4 UlC + l.F) 

815 LET Uf(C+l/F)a” 

820 LET U»(C*l,F,lfl-N TO )*STRt 
U ( C + 1 , F ) 

630 NEXT F 
840 GOTO 230 
850 REM TE 

860 FRST __. ■_ 

69^I^^^T^THEN LET M«1 
900 IF M a12 THEN LET H = il 
910 LET RS 116 TO 18>=Bí(M*3-2 T 
O M*3) 

920 LET Rf(26 TO 28)=8f(M +□ ♦1 T 
O M *3 +3) 

930 CLS 

940 LET 6Í = "M ■ --- 


950 LET Cia**: ** 

960 PRINT R$ 

970 FOR Z*1 TO 9 
900 PRINT 8$ 

990 PRINT CHRi (Z+156),Ci 
10O0 NEXT Z 
1010 PRINT BS 
1020 FOP Fal TO 9 

1030 PRINT RT F»2,2,U»<1,F>,RT F 
»2,12, Ui IM-fl , F J ; RT F*2,22,UXM+2 
,F> 

1040 NEXT F 
10S0 SLOU 
1060 RETURN 


Rsftu&H 


fmua 


ENTRRDR 

íocoao 


SRLD.RNT. 

0 


TOT.EKTR. 

102ÍC0 


LUZ 

5003 


RGUR 

4000 


TELEFONE 

6000 


RLIMENT. 

20000 


TOT.DESP. 

35OO0 


SALDO 

65000 



ENTRRDR 

..... 

100030 

SRLO.RNT. 

..... 

o 

TOT.ENTR. 

..... 

130000 

LUZ 

..... 

5000 

RGUR 

..... 

4O00 

Tt t EFONE 

..... 

ÒOOO 

RLIMENT. 

..... 

2OO00 

TOT.DESP. 

..... 

360O0 

SALDO 

. 

65000 


Os comandos DX e EX movem a plani¬ 
lha para a direita ou para a esquerda, pos¬ 
sibilitando uma visualização global da pla¬ 
nilha. 

Se você possui uma impressora e deseja 
listar a relação de despesas do mês, utilize 
o comando de IMPRESSÃO (linha 540 a 
640). 


Para a gravação do programa bem co¬ 
mo os dados da planilha (linha 650 a 840) 
digite SA e NEW UNE. Portanto, quando 
você recuperar o programa gravado nu¬ 
ma fita cassete, através do comando 
LOAD " " e for manusear os dados gra¬ 
vados, NÃO UTILIZE o comando RUN, 
caso contrário, ele apagará os dados já ar¬ 
mazenados. 

Agora que você conhece o funciona¬ 
mento do Minicalc , utilize sua imaginação 
e crie novos Minica/cs. Sugestão: crie um 
comando que possibilite o movimento da 
planilha para cima e para baixo. 


SUB ROTINAS DO PROGRAMA 


linha 10 
linha 20 

linha 30 a 50 

linha 60 a 220 

linha 230 a 325 
linha 330 a 360 
linha 370 a 400 
linha 410 a 530 
linha 540 a 640 — 

linha 650 a 710 — 

linha 720 a 840 - 
linha 850 a 1060 


- dimensiona a ma¬ 
triz da planilha 

- dimensiona a ma¬ 
triz para os valores 
numéricos da plani¬ 
lha. 

- entrada de dados 
na coluna "0" 
(Contas) 

- entrada de dados 
por mês (colunas 1 
a 12) 

- controle do coman- 
a ser acionado 

- move a planilha pa- 
a direita 

- move a planilha pa¬ 
ra a esquerda 

- alteração de uma 
célula da planilha 

- imprime a relação 
de despesas de um 
mês 

grava o programa e 
os dados da plani¬ 
lha 

- calcula o saldo do 
mês 

- elabora a formata¬ 
ção da tela 


Experimente digitar estes dados 
para o mês de fevereiro: 


n ENTRRDR 

200000 

SRL D . f!N T . 


TOT • CiNl R . ' 


LUZ 

3300 

RGUR 

53O0 

:TELEFONE 

1030 

RLIMENT. 

20000 

.TOT.DESP. 


: SRl.OO 



COMRKDO ? <EN,RL,CR,DX,EX, IM,SR > 

”S" 

Depois faça os cálculos com o co¬ 
mando "CA" e a seguir mova a plani¬ 
lha para a esquerda utilizando a rotina 

"EX". 


1 ENTRRDR 

100003 

200003 

1 SRLD.RNT. 

0 

65000 

|‘ TOT.EKTR. 

100003 

265003 

1 LUZ 

5000 

3000 

1 RGUR 

4000 

SOOO 

[telefone 

6000 

1030 

j RLIMENT. 

20000 

20000 

| TOT.DESP. 

35000 

29OO0 

| SRLDO 

65000 

236000 


COMRNDO 7<EN,RL,CR,DX,EX,IM,SR> 

•B* 

Repare que o saldo do mês de janei¬ 
ro foi colocado durante a rotina de cál¬ 
culo no saldo anterior do mês de feve¬ 
reiro. O 
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COMPUTADORES 

NO 

RALLY 




FOTO: Walter Morais 


0 111 Rally Universitário Hermes Mace¬ 
do, encerrado dia 10 de dezembro foi tal¬ 
vez o mais importante evento automobi¬ 
lístico desde 1980, quando recomeçaram 
as competições para estreantes e novatos 
suspensas em 1976. 

Nestes últimos anos, mais e mais com¬ 
putadores têm se aliado ao homem para 
auxiliá-lo nas mais diversas atividades. 
A sua dinâmica tem sido explorada desde 
as profundezas do mar aos confins do es¬ 
paço e seu trabalho tem sido reconhecido 
como indispensável pelo mundo todo. 

A Microdigital esteve presente no III 
Rally patrocinando dois carros: o número 
200, pilotado por Marcelo Chamie (o 
Lufão) e navegado por Tácito Mistrorigo 
de Almeida (o Tito), que correram como 
estreantes apenas na terceira etapa e em¬ 
bora tendo problemas mecânicos, obtive¬ 
ram boa colocação. Mais sorte porém teve 
o carro número 381, pilotado por 
Francisco Rodes Fauss (o Chico) e nave¬ 
gado por Francisco Loschiavo Neto (o 
Chiquinho), que participaram como vete¬ 
ranos e que venceram a primeira etapa do 
Rally (Santos); foram 29 colocado na se¬ 
gunda etapa (Campinas) e na IV etapa 
(Sorocaba) e chegaram em 139 na tercei¬ 
ra etapa (São José dos Campos), ficando 
classificados em segundo lugar na conta¬ 
gem geral dos pontos. 

Contando apenas com competidores 
universitários, este Rally quebrou o recor¬ 
de mundial de participantes: mais de 350, 
dos quais boa parte se utilizou das vanta¬ 
gens de se ter um computador ou calcula¬ 
dora a bordo para auxiliar nos cálculos de 
navegação com rapidez e precisão durante 
as provas. Computadores como o TK-85 
tiveram papel decisivo para se alcançar 
boas colocações, na opinião de navegado¬ 
res como o Tito e o Chiquinho que, 
insatisfeito como segundo colocado, pro¬ 
mete ganhar disparado na próxima cor¬ 
rida, contando mais uma vez com a ajuda 
16 MICROHOBBY 


de um TK-85 da Microdigital. 

Show a parte, porém foi a maneira de 
instalar os computadores nos carros tanto 
elétrica quanto mecanicamente. Apesar 
de ter de suportar trepidações durante 
cerca de 300 km por 6 horas, havia até 
carro equipado com TRS-80 da Radio 
Shack! A equipe patrocinado pela Micro¬ 
digital (as duplas Chico-Chiquinho e 
Lufão-Tito e o técnico em Hard/Soft, 
Tanios Hamzo) optou porém pelo conjun¬ 


to micro-TV, que apesar de dar mais tra¬ 
balho, ficava mais portátil e maleável. 
Quanto à parte eletrônica (os cinco inte¬ 
grantes da equipe são estudantes de enge¬ 
nharia eletrônica na E.E. Mauá) o "know- 
how" desenvolvido será analisado na ses¬ 
são HOBBV do próximo número desta re¬ 
vista, e esperamos que lhe seja útil, mes¬ 
mo que você não esteja pensando em to¬ 
mar parte em um Rally, mas que possa 
querer instalar seu computador no carro.O 














Dois importantes títulos da 

W. Sams" agora em português 




BASIC PARA CRIANÇAS (DOS 08 AOS 80) 

de Michael P. Zabinski 


Este livro foi escrito especialmente para os jovens que queiram 
aprender a linguagem BASIC, a mais popular e difundida lingua¬ 
gem de programação dos computadores pessoais. Nenhum conhe¬ 
cimento prévio é necessário para acompanhar este Hvro. pois ele 
parte dos conceitos elementares e aborda apenas os pontos funda¬ 
mentais da programação em BASIC. 

Trata-se de um livro divertido, escrito num estilo leve e bem humo¬ 
rado. Sua abordagem é dara e estimula o principiante a praticar 
cada novo conhecimento adquirido. O livro se baseia na linguagem 
BASIC Nível II do TRS-80, um dos mais populares. 


Em anexo estou remetendo a importância de Cr$_ 

em. Cheque N° _c/Banco _ 

ou Vale Postal N°_(enviar ô Agência Central SP) 

para pagamento do(s) Livro(s), [ÕD [Õ2] (ossinalar) que me serão remeti* 
dos pelo correio 

Cheque ou Vale Postal, pagável em Sõo Paulo, a favor de: 

EDITELE Editora Técnica Eletrônico Ltdo 
Caixa Postal 30141 - 01000 - Sâo Paulo - SP 

Nome:. 

Endereço . 

Telefone: CEP Bairro: 

Cidode . Estado: 

Obs: Se nóo quiser desfocar esta folha, pode enviar xerox ou carta com os 
^ dados completos 


ü 

Z3 

£. 


SUGESTÕES PARA O PROGRAMADOR BASIC 

de Eari R. Savage 

Nada melhor para o programador do que um livro de consulta que 
revele aquelas técnicas e “dicas" que os programadores mais expe¬ 
rientes tanto escondem. Este livro faz isso. Ele dá dicas sobre como 
melhorar e agilizar seus programas. Contém 50 sugestões detalha¬ 
damente explicadas sobre técnicas e sub-rotinas para as mate diver¬ 
sas aplicações. Sâo comentadas também as variações possíveis das 
sugestões apresentadas, o que toma o livro uma fonte inesgotável 
de idéias para o programador. 

Escritas em BASIC Nível II, as sub-rotinas podem ser usadas dire¬ 
tamente em equipamentos compatíveis com o TRS-80 (CP 500, CP 
300, DGT 100, D 8000). 


ADQUIRA-OS NA SUA LIVRARIA DE CONFIANÇA 0U SE6UIN00 AS INSTRUÇÕES 


TK-FILE 



GERENCIADOR DE 
BANCO DE DADOS 
PARA A LINHA TK 
E COMPATÍVEIS! 

Programa com afta velocidade de 
processamento, pelo emprego de rotinas 
em código de máqu/na. 
Com ele você terá um versátil arquivo, 
com grande Uberdade para definir os itens 
desejados, formar fichas, formatar e 
imprimir os relatórios classificados, 
selecionar, alterar, incluir e excluir 
dados e armazenar seu arquivo 
em fita cassete. 
Acompanham completas instruções 
para operação do programa. 
Para adquiri-lo via correio, basta 
enviar carta com seu nome e endereço 
completos anexando cheque no valor de 
CrS 11. 790,00, nominal à MULT/SOFT 
INFORMÁ T/CA L TDA. - Caixa Postal 
54121 -CEP 01296 
SÃO PAULO 




ENTREGA IMEDIA TA PARA TODO BRASIL 



























































































NOVIDADES 



O MICRO ROBÔ QUE JOGA XADREZ 

Uma novidade bastante interessante, 
lançada na — ainda comentada -- feira da 
informática do último ano, é o simpático 
micro robô KALT-400. O robô é formado 
por um braço mecânico com seis eixos, 
que se movimentam em ângulos que va¬ 
riam de 0 o a 180°. Ele pode ser utilizado 
em diversas atividades; desde o auxílio a 
deficientes físicos até ao lado de um soli¬ 
tário jogador de xadrez, como um verda¬ 
deiro parceiro. 

O KALT-400 atende a comandos pro¬ 
gramados em qualquer microcomputador 
(inclusive os compatíveis com o TK-83), 
como também comandos em qualquer lin¬ 
guagem. No BASIC, foi realizada uma ex¬ 
periência que resultou no seguinte mini- 
programa: 10 POKE X, Y, onde X define o 
eixo e Y a posição do eixo selecionado. 

O BASIC PRESENTE NO INTERIOR 
DE SÃO PAULO 

Marília, cidade do interior de São Pau¬ 
lo, preocupando-se com a necessidade 
emergente por informações na área da In¬ 
formática, inaugurou o CIM — Centro de 
Informática Marília. 

O Centro oferecerá cursos de BASIC, 
a linguagem mais usual e simples de com¬ 


putação, em três níveis. O primeiro e o se¬ 
gundo, atingirão as crianças a partir dos 
cinco anos de idade e trabalharão com 
elas. no sentido de desenvolverem a sua 
criatividade, através do raciocínio lógico 
e crítico, dentro de uma visão humanís- 
tica.O terceiro nível, destina se ao público 
jovem e adulto, oferecendo-lhes os princi¬ 
pais conceitos relacionados ao uso do mi¬ 
crocomputador na linguagem BASIC, evi¬ 
dente! 


UMA MÁQUINA DE ENDEREÇAR 

Foi lançado em São Paulo pela Novel 
Print (empresa fabricante de etiquetas e 
fitas) uma máquina de endereçamento 
postal automático. O equipamento, apre¬ 
sentado na última feira da Informática, 
denomina-se Tickopress 19 SD/MD e foi 
idealizada com o objetivo de efetuar um 


CONVERSE 
COM 
PROFISSIONAI: 


SOFTWARE 

Linha completa 
de software aplicativo. 
Desenvolvimento de software 
especifico para sua 
necessidade 
Linha completa de programa: 
para TK e CP-200. 


SHOW ROOM E VENDAS: 


ASSESSORIA 

Antes da escolha de seu micro, 
nos diga qual o seu problema. 
Nós o orientaremos 
na escolha do micro CERTO 
para você 
ou sua empresa. 


CURSOS 

BASIC I, BASIC AVANÇADO 

• Excelente material didático, 
no máximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 


DATA saumoa 

VENHA NOS VISITAR 

AV. EUSÉBIO MATOSO, 654 - CEP 05423 • SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 


MICRO REI 

INFORMÁTICA LTDA. 


- Cursos regulares de Linguagem BASIC ou com 
horário a combinar, para executivos e para 
aualquer microcomputador. 

- Curso sobre GRÁFICOS em Basic, para JR. 

DISMAC. AAAvvi 

- Venda de micros pelo correio: JR. MAXXi 

- Transformamos televisão para monitor. 

- Consultoria em SOFTWARE para 

microcomputadores. D . 

- Especializada em programas para Hewleti Packard 

8 5 

- Proqramas prontos para HP 85 e 87 

• Mala direta e agenda de clientes • Movimentação 
bancária com código de despesas • Datilografia 
automática de circulares com busca de endereços na 
fita • Topografia • Contabilidade de autônomo: livro 
caixa • Jogos diversos • Folha de pagamento 

• Controle de estoques • Controle para Postos de 
aasolina • Controle de processos para Marcas e 
Patentes • Controle de aluguéis • Contas a pagar 

• Contas a receber 


Rua Pinheiros. 812 CEP 05422 
Pinheiros SP 

Tel.: (011) 881-0022 
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endereçamento automático em todo tipo 
de correspondência, desde envelopes até 
revistas. O processo de endereçamento é 
realizado com o empilhamento dos enve¬ 
lopes na parte anterior da máquina que os 
separa por unidades, aplicando as etique¬ 
tas sempre na mesma disposição, alcan¬ 
çando uma velocidade média de até 70 
aplicações por minuto. 


FITAS COLORIDAS 
PARA IMPRESSORA 

Investindo grande potencial na amplia¬ 
ção de suas empresas, o Grupo Machado, 
formado pelas empresas Data Ribbon, Mr. 
Data e Datrix, um grupo fabricante de 
fitas magnéticas e disquetes, resolveu par¬ 
tir, neste segundo semestre, para um 
ritmo mais intenso de automação. 

Com este objetivo, o Grupo está desen¬ 


volvendo em sua fábrica, um laboratório 
de análises e instalando máquinas de en- 
tintar em OCR e corte de filme de polieti- 
leno. Todo este investimento em máqui¬ 
nas, resultou no lançamento dos disketes 
Datadisk, das fitas Qume, LGM 3287 (em 
4 cores), Grafix 80 e 100, além de uma 
linha completa de fitas em cores. 

OS JOGOS DA MULTISOFT 

Os usuários de micros têm agora à sua 
disposição uma série de 16 jogos em fitas, 
lançados pela Multisoft. São fitas que 
agrupam de dois a três programas com 
2 K de memória, e podem ser utilizados 
em microcomputadores como os TKs 82 
e 83. Entre os jogos disponíveis para ven¬ 
da nos revendedores estão: "Invasores, 
Desafio Espacial, Bombardeio, Smag- 
Smag, Confronto, Minotauro, Laser, Lim¬ 
peza Cósmica entre outros. 

MICRODIGITAL NO RIO 

Os usuários dos micros fabricados pela 
Microdigital, no Rio, já possuem um local 
para levar os seus aparelhos encrencados. 
A empresa inaugurou em Ipanema, na 
Rua Visconde de Pirajá, 414-conj.606, 
uma filial para prestar assistência técnica 
aos usuários de seus aparelhos. O 
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LIVRARIA 

SISTEMA 


LOJA: Galena Metrópole, lj. 8 1 .■ s/loja 
Tels 259 1 503/257-6118 SP 


ENTRADAS DA GALERIA: 

Av. São Luiz. 187 - (Antigo 1 53) 
Praça Dom José Gaspar, 106 SP 


SEMPRE NOVIDADES 


i 


2 

3 

4 

5 - 

6 - 

7 - 

8 


MACHINE LANGUAGE PROGRAMMING MADE SlMPLE FOR 
YOUR SINCLAIR & TIMEX TS1000 - ZX8 1 - ZX80 
Melboume 

MASTERING MACHINE CODE ON YOUR ZX81 - Ton. Baker 
APPLE II - GUIA DO USUÁRIO - EDIÇÁO EM PORTUGUÊS - 
Osborne 

A CONSTRUÇÃO DE UM COMPILADOR Setzer 
A PRIMEIRA MORDIDA - Apple II - maxxi unmtron- 
microengenho-Tucci 
BASIC SEM SEGREDOS Mirshawka 
ESTRUTURAS DE DADOS • Furtado 
INTRODUÇÃO A LINGUAGEM BASIC 
P/MICROCOMPUTADORES Lederman - 
9 - O MICROCOMPUTADOR NO CONSULTÓRIO MÉDICO 
Nascimento 

10 49 EXPLOSIVE GAMES FOR THE ZX81 -Hartnell- 

11- THE TIMEX SINCLAIR 1 000 • INCLUDES 50 READY TO- 
RUN PROGRAMS 

1 2 - GETTING ACQUAINTED WITH YOUR VIC 20 - Hartnell 
13 - LINGUAGEM DE MÁQUINA PARA 0 TK - 82-83-85 
(assembler z-80) Rossini 

1 4 - FAST BÁSIC • BEYOND TRS-80 BASIC Gratzer ■ 

1 5 - ENHANCING YOUR APPLE II - Lancaster 

16 0 COMPUTADOR: UM NOVO SUPER HERÓI: 1983 

157péginas 

É um livro que desvenda todos os mistérios dos computadores, desde seu 
nascimento até a língua que eles gostam de usar para conversar conosco 
Destinado ao público infanto-juvenil e a leigos no assunto Autores Maria 
Xecília C Baranauskas/Heloísa Correia Silva 


* Preços sujeitos a alteração 


28 000, 
18 000. 

9 800. 

5 700. 

4.200, 

6 500. 
6.900, 

6.350. 

5.200. 
14 100. 

16.000. 

16.000. 

6 500. 
24 600. 
30.400. 

5.400. 


ATENDEMOS POR REEMBOLSO 
CORREIO E VARIG - (fora da Capital) 
PEDIDOS PARA; CX. Postal 9280 
CEP 01051 SÃO PAULO SP 


PROTEJA SEU 

MICRO 


ESTABILIZADORES 
ELETRÔNICOS 
DE TENSÃO 

• UL TRA SILENCIOSO 

• AL TO RENDIMENTO 

• BAIXA DA TENSÃO DE 
SAÍDA: ± 10% da Tensão 
nominal 

Potência — Monofásico: 

0.5 KVA até 15 KVA 

Trifásico: 10 KVA até 
200 KVA. Para alimentação de 
Mini e Micro Computadores. 
Equipamentos Biomédicos, 
foto composição, laboratórios, 
etc. 



ZENTRANX 

ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Rua Elias Mahfuz. 22 • CEP 04746 • Santo Amaro - SP 

Tels.: (011) 522-2159 e 548-0651 
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„ PROGRAMAS DO LEITOR 

EQUAÇÕES ALGÉBRICAS 
E TRANSCENDENTAIS 


1. O MÉTODO 

O método utilizado no programa deno¬ 
mina-se "Método de Bolzano ou de bis¬ 
secção". É um processo simples de apro¬ 
ximação sucessiva para determinar raízes 
reais de uma equação algébrica ou trans¬ 
cendental. Partindo-se de um ponto x’ 
menor que a raiz procurada, o método in¬ 
crementa V, sucessivamente, por 'h', até 
que um intervalo de amplitude 7?' seja en¬ 
contrado, de modo que f(x) e f(x+h) te¬ 
nham sinais opostos, isto é, f(x) ,f(x+h)< 
0 . 

Uma raiz então é detectada entre V e 
x+h'. A partir daí, o passo h‘ é reduzi¬ 
do à metade em todas as etapas seguintes, 
observando-se o seguinte 

a. Se f(x).f(x+h)>0, na etapa seguin¬ 
te usar-se-á o intervalo anterior reduzido 
à metade, com valor de x' incrementa¬ 
do pelo valor de 'h' (dessa etapa ante¬ 
rior), isto é, daquela em que foi obtido 
f(x).f(x+h)>0 [sinal (+)]; e 

b. Se f(x) .f(x+h)<0, na etapa seguin¬ 
te usar-se-á o intervalo anterior reduzido 
à metade, porém com o valor de 'x' man¬ 
tido da etapa anterior, isto é, daquela em 
que foi obtido: f(x) .f (x+h)<0.[sinal (—)]. 

Desta forma, a raiz é sempre aproxi¬ 
mada pela esquerda e em qualquer etapa, 
a amplitude do intervalo do passo ante¬ 
rior dá o limite superior de erro. 

Encontrada uma raiz, pode-se partir de 
sua direita para localizar outra que por¬ 
ventura houver. 

2. O PROGRAMA 


a. Comandos BASIC 


TMCN COTO 12» 


10 «CM PEDRO R. CRPLINI 
13 REM -RRIZES DR EOURCRO** 

2® RCH “METOOO: BOLINO" 

4.® LET K«® 

5® LET L*0 

60 PRINT RT S,l;**yOCe ^JPF INTR 

OOUZIU R FUNCRO 08- “ 

XNMR 600 7 (&sNt ** 

70 INPUT Uf 
6® IF US« M S H 
90 CL5 

100 PRIWT RT 3,1; "LI3TC O PROGR 
RHR E INTRODUZR R FUNCRO DESEJRD 
R NR LINHR 600.“ 

110 ST OP 
120 LET H-0.3 
130 CLS 

140 PRIKT RT 3,1;"EKTRE COM UM 
URLOR OURLOUER MENOR OUE R P 

RIZ PROCURRDR.- 
130 INPUT X 
160 LET K«Kfl 
170 CLS 
180 COSU0 600 
100 LET C*F 

200 PRINT RT 3,1; “X* M ;X;RT 7,1 
; ~H» **;H; PT 0,l;’*x+M- **;X^H 
210 LET X-X+H 
220 GOSUB 600 

230 PRINT RT ll,i; “FCXi- -;s;flrr 
13,1; **F CX+M) * **; F 
240 IF F*0 THEN COTO 310 
230 IF G>0 THEN COTO 330 
260 IF RB3 (F-C)<*.0001 THEN CO 
TO 530 

270 IF F*G>0 THEN GOTO 310 
280 PRINT RT 1B,1;*’SINRL «->” 
290 LET L«1 
300 OOTO 320 
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310 PRINT RT 15,1, "SÍNll. 

320 PRINT RT 17,l;“OIG* * < NEU 

LINE >- 

330 PRUSE 9929 

340 POKE 16436,233 

25® Í F NOT L*1 THEN GOTO 40® 

360 IF F»G>0 THEN GOTO 380 
370 LET X.X-H 
380 LET HsH/2 
390 GOTO 160 

400 IF K<al0 THEN GOTO 160 
410 CLS 

420 PRINT RT 5,1;"RPOS INCREMEN 
TRR < X > DEZ UEzás, NRO ENCONTREI 
INDÍCIOS DE RRIZ.‘* 

430 PRINT RT 9,1,'PRRR DESISTIR 
DIGITE <P>." 

440 PRINT RT ll,l;“PRRR TENTRR 
OUTRO URLOR INICIRL DIGITE QURLO 
UER TECLR E NEULINE” 

430 INPUT U* 

460 IF U$*"P" THEN 3TOP 

470 CLERR 

480 LET K*0 

490 LET L=0 

500 GOTO 120 

510 PRINT RT 17,1; “X* “; X; “ £• 


530 PRINT RT 17,1;“X* ~i X-M;“ 

» a n^.qn. •* 

8A® W STÕP* _ w 

600 LET F-EXP X-3*X 
610 RETURN 

620 STOP _ 

630 SRUE "RAIZES DE EOURCRH” 
640 RUN 


MEMÓRIA OCUPADA: 

1556 bytes 

SOMA SINTÁTICA: 

21289 


b. Variáveis utilizadas 

X: valores das abscissas da função 
f(x); 

H: valores das amplitudes dos in¬ 
tervalos utilizados, 

G: valores para f(x); 

F: valores para f(x+h); e 

K, Le U$: valores auxiliares para 
controle das mensagens 
pertinentes às diversas 
situações encontradas. 

C. Observações 

1) A função f(x) da qual se quer 
pesquisar o valor de V tal que 
f(x)=0, deve ser, previamente, 
definida na subrotina 600. Caso 
isto seja esquecido pelo pesquisa¬ 
dor, o programa irá lembrá-lo 
desse fato; 

2) 0 intervalo 'h' está, inicialmente, 
fixado em 0,5 de amplitude. 

3) Está previsto o caso onde um 
dos valores assumidos por 'x' ou 
'x+/?' venha a se constituir em 
uma raiz exata da equação. 

4) Caso o valor inicial escolhido pa¬ 
ra 'x' não permita, após dez eta¬ 
pas, encontrar um intervalo [x, 
x+h] tal que f(x).f(x+h)<0, o 
pesquisador será consultado se 
desiste da pesquisa, ou se quer 


Pedro Antomo Carlim P de Souza 

atribuir outro valor inicial para 
y , reiniciando o processo itera 
tivu, 

5) 0 programa pode ser utilizado 
num TK83, Háo sendo neces 
sária a expansão de memória. 

6) 0 cálculo da raiz está previsto 
com aproximação a menos de 
0 , 0001 . 

3. O TESTE 

0 programa foi testado com diversas 
funções e valores arbitrários iniciais para 
'x'. 

Os comandos "basic" do parágrafo an¬ 
terior apresentam para teste a equação 
e x —3x = 0 Para tanto, definiu-se na li¬ 
nha 600 a função: 


600 LET F =EXP X-3#X 


Partindo-se do valor inicial x = 0, de¬ 
pois de 15 impressões de resultados, 
obtêm-se a solução. Reproduzimos a se¬ 
guir alguns resultados: 

a. Primeira impressão: 

,X = C.6171875 
H= .00390625 
X+H- 0.62109375 
F (X) = .6021446524- 

FCX+MÍ* -.0023180936 
5IMAL C-> 

DIGITE <NEU LINC> 

b. Segunda impressão: 

X* 0.6171075 
H= .0009765625 
X*Hs 0.61816406 
FCX>* ■0021446524 

FCX+H)b .0010261093 
5INRL {+> 

DIGITE <NEU LINE > 

c. Décima quinta impressão: 

X* 0.61201656 
H= .000061035156 
X + H* 0.61907959 
rtXí a .000048836693 
F (X + H) « -.000020916574 

X* 0.61901856 E* R SOLUCflO. 


O autor deste programa, é bacharel licenciado 
em matemática pela PUC-SP e atualmente dá 
aulas na área. na PUC-SP e nas Faculdades 
Oswaldo Cruz. O 
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use 

Tiglaader. 

TIG-LOADER possibilita: 

• a localização do ótimo volume do gravador, facilitando a 
operação LOAD 

• DUPLICAR qualquer programa, mesmo aqueles 
“fechados". 

• carregar (LOAD) e DUPLICAR simultaneamente 

• gravar (SAVE) em 2 gravadores ao mesmo tempo 

• monitorar as operações LOAD, SAVE ou DUPLICAÇÃO 
através de fone 

• filtrar as interferências elétricas de baixa frequência, que 
são a causa da maioria dos problemas de LOA D/S A VE. 


TIGRE 

C0M ’ DE EQUIR PI COMPUTADORES LTDA. 

"P&St? Rua Correia Galvão, 224 - CEP 01547 • São Paulo 
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NÃO CARREGUE ESTES PROGRAMAS! 


V. não precisa mais carregar estes programas: eles estão prontos pa¬ 
ra uso, em CARTUCHO! Conecte o cartucho, ligue o micro e... só! 
Seis aplicativos à sua disposição, esperando V. comandar. SEM mo¬ 
dificar seu micro. E a expansão de memória é usada normalmente! 
Como lançamento, o TIGRE oferece: hi-speed, renumerador, apaga¬ 
dor de linhas em bloco, soma sintática, disponibilidade de memória e 
rotinas de vídeo em um único cartucho! É ESPETACULAR!!! 


ESCREVA PEDINDO INFORMAÇÕES 


Envie seu pedido + cheque cruzado Atendemos somente por carta. 

Prazo de entrega: 15 dias Solicite relação de programas em fita. 

Despesas postais incluídas nos preços 


SIM , desejo receber o TIG-LOADER , para tento, estou anexando o cheque n°_ 


- no valor de CrS - 


NOME 


ENDEREÇO: 

CEP 

CIDADE | ESTADO: 

PROFISSÃO 

ASSINATURA: 

IDADE 

MARCA DO MICROCOMPUTAOOR 


















PROGRAMA DO MÉS 

DUELO 

Gustavo Egídio da Almaida 


Você é Kid Dedo Lerdo, o melhor (e 
único) xerife da região onde fica Micro* 
Town. 

Lá, encontram-se Jonny Ringo, Jesse 
James, Billy The Kid, Sundance Kid, os 
irmãos Dalton, Kid Reagan e outros gran¬ 
des matadores. Você veio à MicroTown 
para acabar com todos eles, e agora segue 
pela rua principal da cidade. 

Cuidado! Em cada esquina pode haver 
alguém à sua espera, e, se assim for, você 
não poderá fugir ao DUELO! 

O confronto será inevitável e só lhe 
restarão duas opções. . . Matar ... ou 
Morrer\ 

Aguarde o momento certo e. . . "Fo¬ 
go*. \" (Figura 1). 



Aquele que disparar primeiro, ficará 
para contar a história ... 

Eu sinto pena de você, pois o temível 
e esquizofrênico Kid Reagan, o maior de 
todos os matadores, o odeia! Decidido a 
liquidar você, trouxe à MicroTown toda a 
sua quadrilha e você só sairá da cidade 
num caixão! 

Portanto, se você quiser continuar vi¬ 
vo, continue matando! 

Tome cuidado com sua consciência, 
pois você é uma pessoa honesta e se dispa¬ 
rar antes do momento . . . "FogcH ", irá 
punir a si mesmo (Figura 2). 



Contagem: 


— A cada passo percorrido -►5 pontos 

— Caso vença o Duek) -*50 pontos 

— Desobedecendo as regras “► —5 pontos 
Para mover, (O) use a tecla 7 

Para atirar use a tecla 0 
Inimigo - (") 

Muita atenção no momento da digita¬ 
ção I 

Cuidado para não digitar comandos ou 
funções, letra por letra. 

Funções, como por exemplo INKEY$, 
devem ser digitadas da seguinte maneira: 
SHIFT NEW UNE tecla que contém a 
função. 
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Caracteres gráficos usados: 

" H "-SHIFT 9 e SHIFT H 

" ■ "-SHIFT 9 e SHIFT SPACE 

" 0 "- SHIFT 9 e SHIFT B 
Observação: Para alterar o grau de difi¬ 
culdade do jogo, devemos listar a linha 
350 através do comando LIST 350 e 
NEW LINE, depois usar SHIFT EDIT. 

Feito isso, é só mover o cursor para 
a direita através do comando SHIFT 8 
repetindo a operação até que o cursor pa¬ 
re de se mover. 

Agora, delete o último caractere, digi¬ 
tando SHIFT RUBOUT. Digite uma das 


letras abaixo: 

B 

A 

R 

Pronto, está feita a alteração. Experi¬ 
mente fazê-las e veja o que acontece em 
cada uma delas. 

Como você pode notar, na listagem do 
programa, são utilizadas funções pouco 
usuais para computadores de 16 K ou 
mais de memória, mas muito usadas em 
programas com no máximo 2 K de RAM. 
Funções "estranhas" como VAL, mas 
muito importantes porque economizam 
bytes, diminuindo significativamente a 










jC /' '* * 9 



MEMÓRIA OCUPADA: 

922 bytes 

SOMA SINTÁTICA: 

57 077 


># iifiàWgffétt*:***> 



memória do programa. 

Por exemplo: 

Quando fazemos: 

10 LET C = 10 NEW UNE, 
ocupamos 16 bytes. 

Agora, se ao invés disso, fizermos: 

10 LET C = VAL "10" NEW LINE 
ocuparemos 13 bytes. 

Vocé pode constatar isso através do 
comando: PRINT PEEK 16396 + 256 * 
PEEK 16397- 16509. 


AGUARDE: 

COMO ECONOMIZAR MEMÓRIA 
NO TK.NA SEÇÃO DICAS. 


2 CLS 

3 let k»vpl 

4 LET R «URL. ”10” 

5 LET ««URL "B” 

6 LET P*K-K 

7 LET B-URL ”4” 

8 LET 3«R-K 

9 LET D*U«L ”S0” 

2® FOR F»P TO R S TCP K+K 
25 PRINT RT r , "WÊÊÊÊ M 


RÍMT F 
EXT F 


4-0 NE> 

só PRxrrr »t k,r; 


PONTOS: 


60 PRIKT RT S,B;”0”;RT 3,B 


n I Hl U , Hl O , D, 

INKEY**”7” THEN LET 5*5- 


70 IF 

< K ♦K) 

75 IF INKEYf*”7” THEN LET P«P* 
R 

77 IF 5<K THEN LET 5-R-K 
©0 LET L «INT I RND10) 

90 IF L-K THEN COTO URL ”900” 
150 GOTO D*R 
2©0 PRINT RT 5,0;“O” 

205 LET C *INT (RND*(K♦Kl ) 

2^0 IF C-K-K THEN LET C«R-K 
230 FOR MmK TO R 

840 PRINT RT 5-(K*K) , C; ; RT 3 

-(K*K) ,c;”””” 

250 NEXT H 

255 PRINT RT K,R+R;P 
260 FOR F-K TO B-K 

270 PRINT RT 3-(KfK),C;- iRT 

CK*K> ,Ci ** ~ 


275 LET C~C* CC<BÍ -(OBJ 
280 NEXT F 

290 PRINT RT 5» IK» K> ,C;. . 

300 PRINT RT R,R; ' 

310 FOR F*K TO INTIRNDT&í *D 
320 IF INKEY**”9” THEN GOTO URL 
*400” 

330 NEXT F _ 

340 PRINT RT R,R; "EH9EMH“ 

350 FOR F*K TO INT (RNOftB-K) «*K 
360 NEXT F 

365 IF INKEY*»”0- THEN GOTO URL 
*500” 

375 PRINT RT 3,C;”.”;RT 5,C;”X” 
365 PRINT RT R,R;”Te£lE P” 

22Z IF INKEY$«”P f * THEN RUN 
390 GOTO URL ”373” 

ceu 8 REcnns - BT R - R; _uoce oesooeDe 

41® PRU5E URL ”200” 

*23 PRINT RT 5-CK+K) ,C; ” ” 

430 LET P*P-(B+K> 

445 PRINT RT^R,R;~ 

450 GOTO D 

500 FOR F«K TO R 

a-CR*K> # C;”.“;RT S 

“ IRtM / Cj X 
520 NEXT F 
530 LET P.P+0 

535 PRINT RT S-CK*K1,C;“ ” 

540 GOTO URL ”445” 
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ARTIGOS 


14 programas 
para meditação 



Agora, vamos à precisão numérica do 
TK: 


Utilizando as teclas 5, 6, 7, 8 ou o 
joystick, movimente o "ponto piscante" 
gerado pelo próximo programa para cima 
(tecla 7). 0 que ocorre quando você ten¬ 
tar sair da tela? Isto acontece em todas as 
direções? 


Este pequeno artigo simplesmente 
apresenta alguns programas escritos em 
Basic, cujo efeito deveria ser analisado pa¬ 
ra "meditação" por todos que já tenham 
um bom conhecimento de Basic-TK. 
Comecemos brincando com a tela. . . 


Flavio Rossini 


Agora, tente explicar a "assimetria" 
que ocorre nesta figura após o cruzamen¬ 
to das duas "linhas": 


PROGPRMR 1 

IO SLOU 
20 FRVT 
30 PUN 


PROGRflMR 3 


PROGPRMR 2 

IO FRST 
20 5LOU 
30 RUN 


10 PRINT PT 21,31;- 
20 PRINT ■HflRhONIfi” 


PROGPRMR 4 
5 5LOÜ 

10 FOR 1=0 TO 21 
20 FOR J«=0 TO 31 
30 PRINT RT I.U; aíl' 
4 0 PLOT X,J 
50 NEXT <J 
60 NEXT I 


PROGPRMR 13 

10 SLOU 
20 LfcT X a 10 
30 LET V =20 
40 LET XN«X 
50 LET YN *Y 
60 PLOT XN,YN 

65 LET XNxX* (INKEY$a"8") - (INKE 
) 

70 LET YN *Y ♦ C INKEY Ss*'7"l — ( INKE 
Y% -"ô”) 

75 UNPLOT X,Y 
60 LET X =- XM 
65 LET Y=YN 
90 GOTO 60 


Como você explica os números aleató¬ 
rios gerados pelo próximo programa? 


PPOGRRMR S 

10 SLOU 
20 RflND 
30 LET X-INT 
4.0 SCROLL 
50 PRINT X 
60 RUN 


110O*RND> 


Execute o programa a seguir e, no fi¬ 
nal, faça um LIST do mesmo . . . 


PROGPRMR 9 

1 PRINT ”L ESNON" 

2 PRINT •MCCRRTNEY** 
J POKE 16510,2 

4 GOTO 2 


Agora, com o auxílio de um relógio, 
cronometre o tempo de execução dos 
próximos dois programas. . . Tente expli¬ 
car a diferença* 



\ 

PROGPRMR 12 

10 SLOU 

20 FOR 1=0 TO 21 


30 PRINT T RS I;"B*;TRB 

(21-1) ; 

40 NEXT I 


v 

_/ 


r 


PPOGRRMR 5 

10 LET X* 1234.567990 
20 PRINT X 




PROGPRMR 6 

10 LET X=0.00O01 
20 LPRINT X 


V 


PROCRRMR 7 


10 LET X--4 
20 PRINT X 4 #2 


— 





PROGPRMR IO 



10 

SLOU 




20 

FOR Y=0 TO 9 



30 

FOR X=0 TO 9 



40 

PLOT X.Y 




50 

NEXT X 




60 

NEXT V 




PPOGRRMR 11 




10 

SLOU 




20 

FOR Y- 34 

TO 4 3 



30 

FOR X =54 

TO 63 



40 

PLOT X,Y 




50 

NEXT X 




60 

NEXT Y 



_ 




J 


E, para finalizar, um pouco de lógica.. 


PROGPRMR 14 

10 SLOU 
20 LET R = 1 
30 PRINT (NOT R> 
40 PRINT 
50 PRINT 
60 PRIÍTT 
70 PRINT 


CR >3) 

<P*1> 

»R<2 PND R > 3) 
CR > =1 OH R>-1) 


60 DIM 04(10) 

90 LET R4 = - C.ERTLES*' 
100 LET R=LEN R* 

HO PRINT R$ ,R 
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PROGRAMAS 


SAO FRANCISCO / 


Para aqueles que têm um computador 
de 2 k de RAM e não possuem expansão, 
a Microhobby apresenta, este mês, dois 
programas divertidos. 

O primeiro é o "São Francisco ", uma 
cidade dos Estados Unidos que já sofreu 
vários abalos sísmicos (por estar construí¬ 
da sobre uma falha geológicaje que agora, 
(no nosso contexto) está sendo abalada 
por um tremor de terra e sendo destruída 
gradativamente. Pouco a pouco vão sur¬ 
gindo buracos (GRAPHIC SHIFT H) devi¬ 
do ao terremoto e você, o "O" represen¬ 
tado na tela, como o último dos habitan¬ 
tes, deve lutar pela sobrevivência mas 
nunca abandonar a sua cidade. 

Utilize as teclas 5, 6, 7 e 8 para loco¬ 
mover-se à esquerda, direita, descer e su¬ 
bir, ou do Joystick, escapando dos bura¬ 
cos que o ameaçam. 

O jogo termina quando você cair em 
um deles ou sair das delimitações da ci¬ 
dade. 

O segundo é o "PAREDÃO". Para 
quem nunca jogou paredão e quer saber 
como jogar, aqui está sua oportunidade! 

Você (GRAPHIC SHIFT 5) deve reba¬ 
ter a bolinha (O) que bate na parede (na 
tela, localizada à esquerda), utilizando-se 
das teclas 6 para descer e 7 para subir. 
Quando você efetuar um total de três jo¬ 
gadas, na tela aparecerá o total de pontos 
conseguidos. 

Conhecendo estes dois jogos, mãos à 
obra! 




Introduza os programas tomando cui¬ 
dado para nunca digitar as funções RND, 
PEEK, INKEY$, INT, VAL, PI, letra por 
letra - isso deve ser feito com o cursor 
em Q . Por exemplo para obter a fun¬ 
ção RND, tecle SHIFT NEW LINE T. 

Para conferir os programas, utilize-se 
da Soma Sintática (publicada na edição 


número 5 de Microhobby). Para isto, co¬ 
loque inicialmente o programa da Soma 
Sintática e "dê" RAMTOP. Feito isto, di¬ 
gite os programas exatamente conforme 
as coordenadas dadas, caso contrário, as 
modificações efetuadas por você nos pro¬ 
gramas, alterarão o resultado da Soma 
Sintática. 


SÃO FRANCISCO 


PAREDÃO 


10 

20 
30 
4.0 
30 
60 
70 
80 
90 
100 
11> ; • 
110 
120 
130 
14.0 

) 

150 

160 


PPINT ■■■■ 

FOR N-l TO 14. 
PRINT ”1 
NEXT N 
PR INT *1, 


UTT P* 16924 
LET 6-0 
POKE P . 32 

PR INT RT 20,0, ”PLRCRRa’';S 
PRINT RT 1*(PND«13> ,1+iRND« 

IF PEEK P<>52 THEN 3TOP 
POKE P,0 
LET 5=3 + 1 

LET P-P+ <INKEYIa-O" 1 -fINKEV 
> + 33 # ( C INKEY$*"6*> - (INKEY** 

IF PEEK P<>0 TMEN 3TOP 
GOTO 80 


MEMÓRIA OCUPADA: 

550 bytes 

SOMA SINTÁTICA: 

21409 


3 LET T-ORL 
10 LET S=URL 
20 LET B=URL 
30 

40 LET 


•0- 

• 1 - 

•ll** 


C«B 

R=URL ” 12’* 

43 PR INT " JOGO **; 5 
50 PRINT RT 0, URL *13";” “ 

60 PRINT RT C, R, ** " 

65 IF R-URL "e- TMEN LET C —INT 
(RND #5) *10 
70 LET Rsfi-PI/PI 

60 LET B*B-(INKEYÍ«"7") flINKCY 
t»-6") 

100 PR INT RT 0 , URL ** 13** ; ”f 
103 LET R-R-PI/PI 
110 PRINT RT C,R, "O” 

120 IF R-ORL " -12’* RND B-C TMEN 
LET R»ORL ** 12 ** 

123 LET T tsT fPI/PI 

130 IF R*UR L ••-20** THEN GOTO UR 
L “200" 

150 GOTO URL "50" 

200 LET 5-5fPI/PI 
205 CLS 

210 IF 5 <URL "4” THEN GOTO URL 
220 PRINT ”3EU PLRCRR * ";T 


MEMÓRIA OCUPADA: 

360 bytes 

SOMA SINTÁTICA: 

23565 
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O Instan-TK 
e a amnésia 
em micros. 


Taniot Hamzo 


Não há nada mais medonho para um 
digitador do que a idéia de ver um progra¬ 
ma quilométrico (aqueles com 15,9 k By¬ 
tes) evaporar, antes de té-lo gravado em 1 
fita. 

Alguns computadores mais recentes 
possuem um tipo de memória que jamais 
esquece, a não ser propositadamente. 
Os TKs e tantos outros computadores 
pessoais têm o que se chama de "memória 
volátil", ou seja: interrompendo-se a ali¬ 
mentação elétrica, mesmo por muito pou¬ 
co tempo, a memória 'esquece" para 
sempre seu conteúdo. 

Para espantar este "fantasma da amné¬ 
sia" de uma vez por todas, costuma-se 
usar um sistema conhecido por NO 
BREAK, que não interrompe a alimenta¬ 
ção elétrica ao micro, mesmo que haja fal¬ 
ta de energia elétrica na rede, ou, num ca¬ 
so comum (pelo menos para mim) onde o 
usuário, muito excitado durante um jogo, 
chute sem querer o fio da tomada. 

Em sistemas de responsabilidade, a ins¬ 
talação de um NO BREAK é crucial. O 
TK, que pode ter aplicações diversas, po¬ 
de ter diferentes motivos para conservar 
sua memória por prazos igual mente varia¬ 
dos. 

Segundo minha concepção, são três as 
categorias de NO BREAK: 

1. INSTANTÂNEA: Quando se quer 
que a memória não se perca por alguns 
instantes, enquanto se troca de tomada; 
quando houver instalação elétrica intermi¬ 


tente (com bruscas variações de tensão ou 
em tomadas, extensões ou "benjamins" 
com mau contato, evidenciado quando se 
mexe neles para ligar um gravador, por 
exemplo) ou ainda quando aquele seu 
querido priminho vem te visitar e quer 
descobrir o que acontece se o compu¬ 
tador for desligado quando você está 
usando. A memória será mantida por 
alguns minutos. 

2. PORTÁTIL: Quando se quer que a 
memória seja mantida, enquanto o 
computador é transportado de sua casa 
até a casa de um colega; da escola até o 
clube ou do escritório até um cliente. A 
memória poderá ser mantida por algumas 
horas. 

3. PERPÉTUA: Em sistemas real men¬ 
te NO BREAK, que não podem parar: 
alarmes residenciais, comerciais ou indus¬ 
triais; controle de processos; em soft- 
houses e em ocasiões em que o micro de¬ 
va funcionar indefinidamente sem inter¬ 
rupções, independente da disponibilidade 
da rede elétrica. A memória poderá ser 
mantida por dias. 

Abordarei o primeiro e o segundo ca¬ 
so, que me parecem mais interessantes 
para o leitor, porém ficarei atento è cor¬ 
respondência pedindo complementação 
do artigo. 

Chamei o projeto de INSTAN-TK e 
seu esquema elétrico pode ser visto na fi¬ 
gura 1. 


Todos estes componentes podem ser 
facilmente encontrados em casas do ra¬ 
mo. Atenção para a polaridade dediodos 
e do L.E.D., bem como a sua sensibilida¬ 
de ao calor excessivo. Verifique as liga¬ 
ções antes de ligar o aparelho. 

FUNCIONAMENTO DO CIRCUITO: 
Apesar de ser um circuito aparentemente 
simples em sua configuração físi¬ 
ca, há diversos detalhes dinâmicos acumu¬ 
lados em cada componente. Farei uma ex¬ 
planação do funcionamento conjunto, 
descrevendo a(s) função(ões) de cada 
parte. 

Ao se ligar o plugue da fonte no circui¬ 
to, através de J1 e este ao computador 
através de J2, observa-se: 

Com a fonte ligada, haverá passagem 
de corrente para o computador através de 
Dl, que está diretamente polarizado, sem¬ 
pre que a fonte estiver ligada. No entanto, 
quando ela não for mais capaz de suprir 
energia, ficará o diodo Dl inversamente 
polarizado, não conduzindo energia das 
pilhas para outro lugar senão para o com¬ 
putador. Com isso, ficarão com carga des¬ 
tinada exclusivamente para o compu¬ 
tador, garantindo seu funcionamento. 
Além disto, este diodo melhora a atuação 
da fonte, aumentando sua retificação, sua 
impedância e ainda reduzindo em cerca 
de 0,6 volts sua tensão de saída, o que 
pode contribuir para minimizar o aqueci¬ 
mento do regulador interno de tensão do 
computador. 


jack da fonte 


v JOV-*. UI 

* J1 

0 




LISTA DE MATERIAL: 


BI 



Figurai INSTAN-TK. esquema elétrico. 


Quantidade Componente/Tipo 

Legenda 

4 

Diodo 1N4002 

Dl. D2. 
D3 e D4 

1 

L.E.D. de qualquer côr 

LI 

1 

Interruptor de 1 pólo 

SI 

1 

Jack fémea 

J1 

1 

Jack macho 

J2 

1 

Resistor de 820 Q, 1/4 W 

RI 

6 

Pilhas alcalinas de 1,5V 

BI 

6/1 

Suporte(s) para pilhas 

— 

1 

Caixa plástica 

— 

Diversos: 

fio, solda, placa de circuito 
ou ponte de terminais, etc. 

impresso 
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0 L.E.D. (diodo emissor de luz) LI 
serve para se monitorar a atividade da 
fonte, apagando, quando ela não estiver 
operando e atestando seu funcionamento, 
quando estiver ligada. O resistor RI limi¬ 
ta o consumo do L.E.D. em cerca de 0,01 
ampères. 

O interruptor SI, além de proporcio¬ 
nar a interrupção da corrente, desligando 
o aparelho, também pode ser útil como 
um RESET, pois não tendo a inércia dos 
eletrolíticos da fonte, proporciona um 
rápido POWER-UP e POWER-DOWN. 

Os díodos D2, D3 e D4 formam, em 
série uma diferença de potencial tal que 
os 9 Volts provenientes da associação das 
pilhas acabam se equiparando aos vales da 
flutuação da tensão da fonte. Estes vales 
podem chegar próximos a 7 volts, equili¬ 
brados com os 9 menos os 2 volts resul¬ 
tantes dos três diodos. No protótipo, a 
d.d.p foi de 0,015 volts, insuficientes pa¬ 
ra provocar uma descarga nas pilhas (que 
aliás andam bem carinhas). Estes diodos 
também impedem que os picos de tensão 
da fonte polarizem reversamente as mes¬ 
mas; fazem com que sejam mais lenta¬ 
mente consumidas, aumentando sua vida 
<jtil. A impedância adicional que estes 
diodos criam, também contribui para re¬ 
duzir a corrente de descarga. 

As pilhas substituem a energia da fon¬ 


te automática e instantaneamente após 
sua falta, o que torna imperceptível ao 
usuário e ao computador saber se está 
consumindo energia da rede, via fonte ou 
das pilhas. 

Quando em teste, o INSTAN-TK foi 
capaz de suprir a ausência da fonte por 13 
horas e 56 minutos ininterruptamente, a 
um consumo constante de 600 mA no 
modo SLOW, pois verifiquei ligeiro declí¬ 
nio no consumo quando o computador, 
em modo FAST, não mostrava a tela. 
Conclui-se então que o consumo varia se a 
tela é mostrada ou não e que o compu¬ 
tador consome menos energia em modo 
FAST e rodando um programa (sem mos¬ 
trar a tela) do qúe em SLOW ou durante 
uma instrução PAUSE ou ainda parado 
(ocasiões em que a tela é mostrada). 

Condições de teste: 

Computador usado: TK82-C sem expan¬ 
são de memória. 

Características das pilhas: 6 pilhas novas 
tipo alcalina, tamanho grande, 1,5 V cada. 
Circuito: INSTAN-TK original, aqui des¬ 
crito. 

Efeitos colaterais: nenhum efeito colate¬ 
ral foi observado sob condições normais 
de temperatura e pressão. 

Melhoras adicionais: melhor imagem, livre 
de interferências da rede e menor aqueci¬ 
mento do computador. 


Di ri 



Figura 2: INSTAN-TK. lay-out da placa de circuito impresso. 


Dependendo da aplicação específica 
do computador, o tempo que o aparelho 
é capaz de substituir a fonte pode dimi¬ 
nuir com o uso de periféricos, tais como 
expansão de memória, impressora, etc. 
Se este for o seu caso ou se assim preferir, 
uma bateria de maior porte (e com con¬ 
sequente maior potência) de 9 Volts po¬ 
derá ser usada (como aquelas usadas por 
fotógrafos para flashes eletrônicos, por 
exemplo), que ainda estará o aparelho na 
categoria de "temporariamente portátil", 
segundo os itens 1 e 2. Pode-se ainda usar 
pilhas recarregáveis, com a mesma vanta¬ 
gem da bateria de flash; longa durabilida¬ 
de e possibilidade de recarga. 

Por experiência própria, me sinto em 
posição de aconselhar a montagem e uso 
(ou só o uso) do INSTAN-TK pela sua 
grande utilidade, segurança (esqueça a to¬ 


mada) e economia (de tempo e paciên¬ 
cia). E por falar em economia (o que agra¬ 
da a gregos e troianos e principalmente a 
árabes e judeus) o aparelho tem a caracte¬ 
rística de não inutilizar completamente as 
(caras) pilhas, que ainda ficam com carga 
suficiente para fazer um rádio portátil 
funçionar (principalmente as alcalinas). 

A figura 2 mostra um exemplo de 
lay-out da placa de circuito impresso do 
INSTAN-TK (que, aliás, poderia muito 
bem ser batizado de JUMBO. Não é ver¬ 
dade que os elefantes jamais esquecem?) 
com as devidas indicações de onde e co¬ 
mo montar os componentes. Aos pontos 
da placa marcados com +B1 e —BI, solde 
os terminais do porta-pilhas, devidamente 
polarizados. 

Até o próximo número! 


( SindcdrPhcê ^ 


O lugar 

compatível com 
os mini-micros. 


(Z X 81, TK 83, TK 85, 

CP 200, APPLY 300, 

TS 1000, RINGO, 

AS 1000, ETC...) 

MICROS 

ACESSÓRIOS 

SOFTWARE 

UVROS 

REVISTAS 


Sinclair Place do Brasil 
Com. de Microcomputadores Ltda. 


Rua Dias da Cruz, 215 - Sala 804 
Ed. Meyer Golden Center 
CEP 20.720 - Meyer - Rio de Janeiro - RJ. 
V Tel.: (021) 594-2699 _ 


J 


GRÁTIS: UM MICROCOMPUTADOR 

CURSOS 


TURMAS 

MANHÃ-TARDE-NOITE 
INCLUSIVE AOS SÁBADOS 

Turmas especiais para 
TK 82 - TK 83 - TK 85 - CP 200 

Cursos para alunos a partir 
de 10 anos de idade 


MATRÍCULAS 

ABERTAS 


PROMOÇÃO 40% DE DESCONTO 

C@MPUTRTl@N 
CENTER 

R. Teodoro Sampaio. 2534 - Loja 40 
Pinheiros S.P. 





O 
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QUEBRA-CABEÇA 
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Para nossa surpresa e grande satisfação 
do nosso amigo e colaborador Nabor 
Rosenthal, recebemos a tempo para publi¬ 
car nesta edição, uma solução parcial do 
Quebra-Cabeça proposto no número ante¬ 
rior A proeza deve-se a Gamai Saty, que 
descobriu existir uma mensagem codifi¬ 
cada na sequência de pulsos recebida 

Ao que nos parece, ele não teve tempo 
de analisar o conteúdo da mensagem, de 
modo que continuamos aguardando que 
algum de nossos leitores a interprete e tra¬ 
duza as informações nela contidas (essa é 
a segunda parte do Quebra-Cabeça). 

Como todo "ovo de Colombo" a pri¬ 
meira parte desse Quebra-Cabeça pareceu- 
nos muito simples (depois de resolvida), 
pois é bastante lógico ao pensarmos em 
enviar uma mensagem ao espaço, cons¬ 
truí-la na forma de uma matriz cujo nú¬ 
mero de elementos seja o produto de dois 
primos. Haja visto a mensagem enviada 
aqui da Terra, através do radiotelescópio 
de Areeibo . cuja forma é a de um retân¬ 
gulo de 73 linhas e 23 colunas (número 
total de elementos = 73x23 = 1679) - 
veja figura 1 Uma sequência de pulsos 
com essa característica (número de pul¬ 
sos = produto de dois primos) é muito 
mais facilmente transformada em uma 
matriz, visto que só há uma forma de se 
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fazer isso! No caso de nosso Quebra- 
Cabeça, o número total de pulsos é 931. 
Decompondo-o obteremos 

931 31 

31 31 =* 931 = 31 x 31 

1 

Ou seja. ele é exatamente o produto de 
dois primos! 

Veja, a seguir, como Gamai obteve a fi¬ 
gura a partir dos pulsos 

"... A sequência consiste de exata- 
mente 961 pulsos (0 e Vs) que formam 
um quadro de 31 linhas por 31 colunas 
(31x31). 

O primeiro programa apresentado, co¬ 
loca os números diretamente numa ma¬ 
triz AS(31,31) o que facilita em muito o 
programa, porém o programa número 
dois, embora um pouco mais extenso, fa¬ 
cilita muito a entrada de dados, pois os 
mesmos entram de acordo com a sequên¬ 
cia publicada na revista, ou seja, a cada 
16 pulsos, sendo assim mais fácil carregar 
os dados. Os mesmos são colocados numa 
matriz AS (16 x 16), logo em seguida rea¬ 
grupados numa matriz com uma única li¬ 
nha e depois transformada em outra ma¬ 
triz (esta final mente com 31 linhas e 31 
colunas). 


O quadro formado pela sequência de 
0 a Vs, indica o desenho de uma antena 
de micro-ondas ou mesmo um radio-te/es- 
cópio, sendo possível se ver no canto su¬ 
perior direito, o logotipo do TK. 

Este desenho foi possível, plotando-se 
um gráfico a partir da matriz de 31 linhas 
por 31 colunas. 

Agora, pode-se fazer a opção: 

Programa LGM1, mais curto e simples, 
porém os dados entram em uma Unha de 
31 pulsos, apresentando certa dificuldade 
para se introduzir os dados da maneira co¬ 
mo foi publicado pela revista. 

Programa LGM2, que embora mais exten¬ 
so, facilita a entrada de dados, pois o mes¬ 
mo entra numa linha de 16 pulsos. 

A listagem de LGM1 

1 RFh GRNRL SRTY 
P REM I.GM1 
10 f>lM 05 Ol ,31» 

15 FOR N~1 TO 31 
20 SCROLL 

P 5 PR 3 NI -R % C” . N, ** ) 

30 SCROLL 
35 INPUT RS(N) 

4 0 SCPOl L 
45 PR1NT RS <N> 

50 SCROLL 

55 PRINT "HOUUC ERRO 7 CSz-NÍ " 

GO IF I NKtY S» = ” TMFN GOTO t»0 
65 IF INKf-Y S> TH6H GOTO «2* 

70 NEXT M 
7? CL 5 
75 REM 
80 FRST 

65 TOP ld TO 31 
rOR U=1 TO 31 

95 1F RS (T,J) * " 0 *’ THEN PLOT U, 

iee NEXT «J 
105 NEXT X 
IIP ST OP 
12» snuE "Lcrjg” 

130 PRINT -TECLE "‘GOTO 80— PR 
RR EXECUTRR O PROGRRHR SEM 
PERDER OS DHDOS” 

140 ST OP 








. . . Devido a certa pressa para enviar a so¬ 
lução , acredito que no programa 1 
(LGM1), não digitei corretamente os da¬ 
dos, pois no LGM2, hé uma pequena di¬ 
ferença no quadro formado que, além das 
características já mencionadas, apresenta 
também na parte inferior direita, a silhue¬ 
ta de um possível ser (será o E. T.?\). Co¬ 
mo já disse, o programa 2 apresenta intro¬ 
dução de dados de maneira mais fácil , 
por isso os dados foram recolocados neste 
programa e que por isso, acredito estar 
com o desenho correto. 

Devido a certa dificuldade em chamar 
LGM2 regra ve i o programa em velocidade 
normal nas seguintes posições: 210-247; 
260-300:310-355". Gamai Saty - União 
da Vitória, PR. 



Mensagem enviada com o radiotelescópio de 
ções convenientemente interpretadas. _ 


A listagem de LGM2 


1 REM CRMRL SRTY 
S REM OUtBRR-CfiBECR L.O.M. 

10 DIM Ra(61,161 

20 FOR M = 1 TO 61 

21 SCROLL 

?P PRimt ~R* c~; N; 

90 INPl/T R9<N> 

96 PRIKT R$INI 
4-0 SCROLL 

41 PRINT “QUER TROCRR RLGO ? 
S/N) ** 

42 IF INKEY*-"" TMEN GOTO 42 
49 1F 1NKEYS="S“ THEN GOTO 21 
60 NEXT N 

O0 REM 4 4 * * * 4 * 4 4 * 4 * 4 4 4 4 4 4 " * 4 * 4 

100 DIM 01(31,31) 

110 LCT ES=fl|(l) 

120 FOR Ns2 TO 61 
130 LET E*°Et+R*lN> 

140 NEXT N 

160 REM HlttfltfffHtttMiftt 

190 LET G = 1 

192 LET H = 31 

200 FOR 1-1 TO 91 

210 LET D$(I)>e$(Q TO M> 

220 LET G-G+91 
230 LET HcH+31 
240 NEXT I 

260 REM 4 * 4-4 «« 44444*4444444444 

900 FOR 1=1 TO 31 
310 FOR U=1 TO 31 

320 IF D$ <I,ÜI *"0" TMEN PLOT U , 

330 NEXT ü 
340 NEXT I 


3S0 STOP 

360 5RUE "LC^" 

370 PRIKT "TECLE " *GOTO 300"- P 
RPR EXECUTRR O PROCRRMR SEM PERD 
ER OS DROOS" 

300 STOP 


Figura 2 

ffi 






Figura 1: 

Números de 1 a 10 

Números atômicos do Hidrogénio, Carbono. 
Nitrogénio. Oxigénio e Fósforo. 


Fórmulas dos açúcares e bases nos nucleotí- 
deos do ONA. 


Números de nucleotídeos do DNA. 

Representação da estrutura do DNA. 
Forma humana. 

Altura da forma humana. 


População sobre a Terra. 
Sistema solar. 


Rádio-telescópio de Arecibo . 

Diâmetro do radiotelescópio. 

ida pelo Gamai no TK e à direita, as informa- 
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Relação 

das lojas autorizadas 
a receber 
assinaturas 


A.D. DATA COM. SERV. DE 
INFORMÁTICA LTDA. 

Rua João Ramalho, 818 — SP 

ALLCOLOR COM. E REPRESENTAÇÕES 
LTDA. 

Rua Carlos Porto. 85 -Jacareí, SP 
CEP 12300 

BEL - BAZAR ELETRÔNICO LTDA. 

Av. Almirante Barro». 81 - Lj. C - RJ. 

BRASIL TRADE CENTER COM. E 
PARTICIPAÇÕES S/A. 

Av. Epitécio Pes»a, 280 - RJ - CEP 22471 

CASA DO MICROCOMPUTADOR SIST. E 
PROC. DE DADOS LTDA. 

Av. Anhanguera, 2574 - Centro - Goiânia. GO 
CEP 74000 

CENADIN - CENTRO NAC. DESENV. DA 
INFORMÁTICA 

Rua José Maria Lisboa. 580 - SP 

CESPRO - CURSOS DE ESPECIALIZAÇÁO 
PROFISSIONAL LTDA. 

Rua República Árabe da Síria. 15 — S/207 
Ilha do Governador. RJ — CEP 21931 

CHIP SHOP COMPUTADORES LTDA. 

Rua Ofélia. 248 - SP 

COMPUTEC LTDA. 

Rua Mairinque, 66 - CEP 04037 - SP. 

COMPUTER CENTER 

MICROCOMPUTADORES MÁQ. E SISTEMAS 
LTDA. 

Rua Lopes Trovão. 134 — Slj. 247 C enter V - 
Icarai - Niterói. RJ - CEP 24220 

COMPUTER HOUSE - JOÃO CÂNDIDO 
COLLADO 

Av. Andrade Neves. 1254 - Campinas. SP 

COMPUTRONIX VENDAS E SERVIÇOS 
LTDA. 

Rua Sergipe. 1422 Belo Horizonte. MG 
CEP 30000 

DATA SOLUTION LTDA. 

Av. Eusébio Mato». 654 — SP 

DIDADOS INFORMÁTICA E ADM. LTDA. 

Rua Minas Gerais. 655. s/602 - Divinópolis, 
MG 

ELDORADO COMPUTADORES E 
SISTEMAS LTDA. 

Rua Visconde de Pirajá, 351 - Lojas 213/4 — 
RJ -CEP 22410 

ELETROSOM LTDA. 

Rua da Concórdia. 287 — Recife. PE 
CEP 50000 
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ENSICOM - ENG. DE SISTEMAS E COMP. 

Rua Marques do Herval. 409 — 19. s/15 — 
Taubaté. SP — CEP 12100 

ENTEC REPRES. LTDA. 

Rua Lauro Muller, 700 - Itajai, SC 
CEP 88300 

EXATRON INFORMÁTICA E ELETRÔNICA 
LTDA. 

Alameda dos Arapanes. 841 - CEP 04524 — SP 

EXPOENTE COM. E REPRESENTAÇÕES 
LTDA. 

Av. Siqueira Campos, 838 - CEP 57000 - 
Maceió. AL. 

GRUPO D.G.B. CONSULTORIA ADM. 
EMPRESARIAL S/C LTDA. 

Rua Dr. Murici. 706 - ala "B". 1? — Curitiba. 
PR 

A/C Sr. Dirceu Guimarães Brito 

GUAÇUMAQ - MAQ. E EQ. P/ ESCRITÓRIO 
LTDA. 

Rua Antonio Gonçalves Teixeira, 97 - 
Mogi-Guaçu, SP 

GUARANI PRESENTES 

Av. Senador Vergueiro. 4964 - 1? — s/6 
Rudge Ramos. S.B. Campos. SP — CEP 09720 

HECTOR A. FERNANDEZ - MIRAGE CINE 
FOTO 

Rua Gal. Câmara, 648 - Sta. Barbara D'Oeste, 
SP - CEP 13450 

LIVRARIA POLIEDRO 

Rua Aurora. 704 - SP - CEP 01209 

LOG COMPUTADORES LTDA. 

Pça. Cândido Dias Castejon, 34 - Slj. — 

S. José dos Campos. SP - CEP 12200 

MAPSS - ENG* COM. E IND. LTDA. 

Rua Getúlio Vargas, 186 - T. Otoni, MG 
CEP 39800 

MAURITINO PIRES SILVEIRA 

Rua Manduca Rodrigues, 924 - Sant'Ana do 
Livramento. RS 

MEMOCARDS - MATERIAIS DIDÁTICOS 
LTDA. 

Rua Amador Bueno. 855 - Ribeirão Preto. SP 

MICROBYTE SIST. E EQUIPTOS. 
COMPUTACIONAIS LTDA. 

Rua Buenos Aires, 41 — 39 — RJ. 

MICROCENTER COMPUTADORES LTDA. 

Av. Santos Dumont. 2749 — CEP 60000 
Fortaleza, CE 


MICROCENTER INFORMÁTICA LTDA. 

Rua Conde do Bonfim, 229 - Lj. 310/2 — 
Tijuca, RJ-CEP 20520 

MICRODATA IMPLANTAÇÃO FÍSICA SIST. 
LTDA. 

Rua Montreal. 16 - SP - CEP 02832 

MICROESPAÇO COM. E REPRESENTAÇÕES 
LTDA. 

Av. Barão do Rio Branco, 2288/1501 - Juiz de 
Fora. MG -CEP 36100 

MICRON INFORMÁTICA LTDA. 

Rua Benjamin Constant. 56 - sl. 804 — Viçosa, 
MG - CEP 36570 

MICRO PROCESS COMPUTADORES LTDA. 

Al. Lorena, 1310 - SP - CEP 01424 

MORGEN - COM. DE COMPUTADORES 

Rua Mal. Deodoro. 51 - Gal. Ritz, 149 
s/1405-A- Curitiba. PR 

NADAIS EQ. DE SOM LTDA. 

Rua Amador Bueno. 213 - Santos. SP 

NASA SHOP EQUIPTOS. ELETRÔNICOS 
LTDA. 

Rua "4". 1042 - Centro - Goiânia, GO 

NÚCLEO DE ORIENTAÇÃO DE ESTUDOS 

Av. Brig. Faria Lima, 1451 — Conj. 31 
01451 - S. Paulo - Fone: 813-4555 

PROSERV PROC. DE DADOS CURSOS E 
REP. LTDA. 

Lgo. 9 de Abril. 27 - s/628 - Ed. Cecisa 11 - 
Volta Redonda, RJ 

RC MICROCOMPUTADORES LTDA. 

Av. Estados Unidos. 983 - CEP 13400 - 
Piracicaba. SP. 

RITZ CINE FOTO LTDA. 

Rua Frei Caneca. 7 — Santos. SP — CEP 11100 

SHOP COMPUTER CEDM LTDA. 

Av. São Paulo. 718 — Londrina, PR 
CEP 86100 

SIETEL SERV. INST. ELÉTRICAS E TELEC. 
LTDA. 

Rua Cel. Joaquim Neto, 32 — Sta. Rita do 
Sapucaí, MG - CEP 37540 

SISCOMP SISTEMAS E COMPUTADORES 
LTDA. 

Rua Tiburcio Cavalcante. 298— Fortaleza. CE 

TELEMÁTICA COM. E IND. LTDA. 

Rua Figueiredo de Magalhães, 286 — s/616 
Copacabana. RJ — CEP 22031 

TELEVIDEO LTDA. 

Rua Marques do Herval. 157 — Recife, PE O 


PROGRAMAS 



TRÂNSITO 


Você se encontra de passagem em uma 
metrópole, com um trânsito "de doido" 
0 seu objetivo é andar a maior quilome¬ 
tragem possível, na avenida principal, evi¬ 
tando os outros motoristas que - veja 
só! - insistem em seguir o caminho opos¬ 
to ao seu, sem respeitar sequer a mão de 
direção! Além disso, você nào pode subir 
na calçada, sob pena de perder a carta de 
motorista e impedido de continuar a jor¬ 
nada (nesta cidade, detestam forastei¬ 
ros. . .} 

Introdução do Programa 

Este programa possui um trecho em 
linguagem de máquina Para introduzí-lo, 
você deve inicialmente digitar o programa 
mostrado na figura 1. Neste programa, a 
linha 1 REM deverá conter 50 pontos 


2 FOR 1 = 16514. TO 16362 

3 SCP9LL 

4 PRINT I . •* . . 

3 INPUT N 

6 PRINT N 

7 POKE I..N 
3 NEXT I 


fig. 1 


Após a introdução, digite RUN e intro¬ 
duza os números (decimais) da listagem 
(figura 2). 


LISTRGEH DECIMAL 


16514..42 

16515..12 

16516..64 

16517..17 

16518..114 

16519..2 

16520..25 

16521..229 

16522..6 

16523..33 

16524..35 

16525..16 

16526..253 

1652“..229 

16528..209 

16529..225 

16530..14 

16531..19 

16532..6 

16533..33 

16534..126 

16535..18 

16536..27 

16537..43 

16538..16 

16539..250 

16540..13 

16541..32 

16542..245 

16543..201 

16544..6 

16545..24 

16546..42 

16547..12 

16548..64 

16549..35 

16550..126 

1655i..254 

165S2..118 

16553..43 

16554..5 

16555..196 

16556..128 

16557..119 

16555..24 

16559..243 

16560.. 16 

16562.. 201 

16561..243 


fig. 2 


Ao terminar, digite LIST A linha 
REM conterá os vários caracteres que cor¬ 
respondem aos códigos em linguagem de 
máquina (figura 3). 


1 

REM ECRND)*?*; FR ST /S7f 

OLE 

RR FAST SGN LPRINT <«*5»4 PPINT 

TRN //ECRNOTO' 1 / PRINT ( NEXT 

TRN 

2 

FOR I»16S14 TO 16562 


3 

SCPOLL 


4 

PRINT I ;**..*•; 


S 

INPUT N 


6 

PPINT N 


7 

POKE I,N 


6 

NEXT I 



fig 3 


Digite POKE 16510,0 para evitar que 
você distraidamente apague ou edite a li¬ 
nha 1, perdendo todo o programa em lin¬ 
guagem de máquina. Sua linha REM terá 
agora o número 0 e, desta forma, não po¬ 
de ser editada, nem apagada Uma vez to¬ 
mada esta providência, apague uma por 
uma as linhas de dois a oito. 


@BRCh ECRND) *? •; FflíT ,»S7í CLE 
RR FR5T 5GN LPRINT <^5S4 PPINT 
T RN //ECRND71V PRINT ( NEXT T RN 


A seguir, digite o programa em BASIC 
mostrado na figura 4. 


O programa 

Ao terminar de digitar o programa em 
BASIC, digite RUN Na tela você verá as 
instruções. Você pode escolher cinco ti¬ 
pos de trânsito, digitando um número en¬ 
tre 1 e 5. Lembre-se: o número de moto¬ 
ristas doidos que aparecerão na sua fren¬ 
te, é diretamente proporcional ao número 
digitado. 

Para desviar-se desses malucos, utilize 
a tecla 5 para mover seu carro "$" para 
esquerda e a 8 para movê-lo para a direita 
No canto inferior você pode acompanhar 
a sua trajetória, verificando o número de 
quilômetros percorridos 

Caso você consiga desviar dos outros 
motoristas, simbolizados por " § " ou 
subir na calçada, o computador, um seve¬ 
ro guarda de trânsito (mas que só pune 
quem é estranho na cidade, no caso você) 
lhe impedirá de prosseguir, tomando-lhe a 
carta e indicando o local do acidente. 

Apesar de severo, o computador-guar¬ 
da lhe dará sempre uma nova chance de 
recomeçar, desde que volte ao ponto ini¬ 
cial da avenida. Se você aceitar, digite 
"S", se não, "N". 

Boa sorte! Mas cuidado para não ficar 
neurótico. O 


MEMÓRIA OCUPADA: 

2.111 bytes 

00REM ECRNÍ»?»: FAST /S7( CLf 
RR FAST SGN LPRINt 

TRN //CCRN07Í7/ PRINT C NEXT TRN 

1 REM M1CROMOBBY 
3 GOTO 2000 
4. LET HS*0 
9 PRNO 
6 CL5 

10 LCT X » 14 

11 POKE 16418.0 

12 PRINT RT 21.0, ‘•RECORDE: ”, M8 

RT 21.13. “PONTOS O PT 22 



30 PRINT RT 1,0, ‘0000000000000 
lOOOOOOOOOOOOOOOOOO ; RT 1,11; '* M 


40 NEXT I 

60 PRINT RT 0,0;"OOOOOOOOOOOOO 
OOOOOOOOOOOÜOOOÜOOO" 

60 LET L«ll 
70 LET TI-0 
60 REM COMECO 

100 IF RNO>.6 THEN GOTO 600 
HO LET R-U5R 16614 
120 PRINT RT 1 ,L, 

130 PRINT RT lí,X _ 

140 LET X«X* (INKEY$»"8*> - í INKEV 
****S"I 

141 ir PEEK CPEEK 16396♦256*PEE 
K 16397+331+X)<>136 THEN GOTO 10 
00 

146 LET TI»T X♦1 

146 PRINT RT 21,13; ” PONTOS: ** ; TI 
150 PRINT RT 10,XJ Í, $" 

170 IF RNOtSK THEN PRINT RT 1,R 
ND #5 4-L; 

100 GOTO 100 

500 LET G-INT (RND#6*3> 

505 LET 0-1 

610 IF L >14 THEN LET Qm-1 
515 FOR F«1 TO G 
520 LET R-U5R 16514 

523 LET L *L 4-0 _ 

530 PRINT RfT 1 , L,"■■■■■ ~ 

536 PRINT RT lí , X; * 

340 LET X «X ♦ < INKEV 0«’*6** ) — I INKEV 

0«”5”) 

552 IF PEEK (PEEK 163964256*PEE 
K 163974331♦X)<>136 THEN GOTO IO 

555 LET TI*TI♦1 

557 PRINT «T 21,13; “PÕNTOSr"í TI 
660 PRINT RT 10,X; f *0" 

360 IF RNO< 3K THEN PRINT RT 1,R 
ND454L; 

590 NEXT F 
£2* COTO 100 
1000 PRINT RT 
,X-l; ”>#■“ 

1003 FOR F-l TO 26 

1006 LET C «U5R 16544 

1007 NEXT F 

1010 POKE 16416,0 
1015 IF TI>H5 THEN LET M3«TI 
1020 PRINT RT 21,0; -RECORDE:~;H3 
;RT 23,8;"OUTRO JOOO I5/N)7" 

1030 POKE 16418,2 

1040 IF 1NKCY>•“5 — THEN GOTO 6 
1030 IF INKEVf.-N- THEN 3TOP 
1060 GOTO 1040 
2000 REM INSTRUCOE5 

2020 PRINT RT 0,0, "*********** T 
RRNSITO • *••••****»*- 
2030 PRINT RT 2,0; "NESTE JOGO RS 
PRINCIPAIS”,-INSTRUÇÕES SRO:“ 

2032 PPINT 

2033 PRINT 

2034 PRINT 

2040 PRINT ,IMOUER Px ESDI» 
EROR> ** , -0 (HOUER P/ DIREITR)" 

2050 PRINT -SEU CRRRO E O "*'t- 

2060 PRINT -UOCE DEUE EUITRR OS 
OUTROS",-CRRROS, OURNDO ELES UIE 
REH-,-RO SEU ENCONTRO DO TIPO *' " 

2070 PRINT 
2060 PRINT 
1 R Sí - 
2090 INPUT SK 

2100 IF SK<1 OR SK > S THEN GOTO 2 
090 

2110 LET SK aSK/10 
2120 GOTO 4 
2130 STOP 

3000 SRUE -TRRN8ITO 
3010 RUN 
3020 STOP 


10 , x-l; -• ✓ . ; RT 11 


“ESCOLHA O TRANSITO f 


fig. 4 
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Prof. Wilton Jo«é Tucci — Coordenador da Projetos Espaciais da Escola Ex par imantai Puari Domus. 


Muitos de nós provável mehte já tive¬ 
ram o desejo, ou talvez apenas a idéia, de 
alterar, de alguma forma, a linguagem 
BASIC, para obter algum efeito especial 
no seu computador. 0 maior problema re¬ 
side no fato de que. estando a linguagem 
gravada em ROM (e não em RAM, como 
é feito em alguns computadores), não é 
possível alterar o seu conteúdo através de 
comandos no teclado. 

0 primeiro impulso dos mais interes¬ 
sados seria o de fazer, ou mandar fazer, 
um novo conjunto de ROM$, com as mo¬ 
dificações desejadas, e substituir os origi¬ 
nais. Porém, uma pessoa mais criativa, 
que conheça um pouco do hardware do 
Apple, logo lembrará que existe o cartão 
periférico de 16K, que pode, sob controle 
do computador, substituir a ROM princi¬ 
pal. Todo o seu conteúdo pode ser trans¬ 
ferido à RAM do cartão, e as modifica¬ 
ções efetuadas por POKEs ou pelo moni¬ 
tor e gravadas num disco. 

A nossa equipe, pensando nisso, deci¬ 
diu tomar esse caminho, desenvolvendo 
um pequeno programa que serve como 
exemplo para os que quiserem fazer as 
suas modificações no BASIC. O programa 
permite ao seu usuário alterar as palavras 
reservadas do Applesoft, podendo substi¬ 
tuir, por exemplo, HOME por CLS ou 
PRINT por MOSTRE. O programa, como 
o leitor já deve ter percebido, exige a pre¬ 
sença do chamado language card, o cartão 
de expansão de 16K, sem o que este não 
funcionará como esperado. Para os que 
não tiverem este periférico, veremos, nos 
próximos artigos, como alterar este mes¬ 
mo programa para permitir a modificação 
dos comandos de DOS, que reside em 
RAM. 


O programa 


Antes de podermos entrar no funcio¬ 
namento do programa, devemos conhecer 
o formato em que estão armazenadas as 
palavras reservadas no Applesoft A lista 
de 107 palavras se encontra gravada, se- 
qüencialmente, a partir da posição 53456. 
Elas estão codificadas em ASCII, com o 
bit 7 no estado 1 indicando o final de 
uma palavra. Como as primeiras palavras 
são END e FOR, os primeiros 6 bytes são: 
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posição 

conteúdo 

ASCII 

53456 

69 

E 

53457 

78 

N 

53458 

196 

D 

53459 

70 

F 

53460 

79 

0 

53461 

210 

R 


O programa começa colocando numa 
matriz as palavras reservadas, separando- 
as quando o código de um caractere é 
maior que 127 (bit 7=1), estando defini¬ 
das, nas variáveis P e NP, respectivamente, 
a posição de memória inicial da lista de 
palavras e o número de palavras na lista 
(linhas 100-140) Como a lista tem tama¬ 
nho fixo na memória, não podemos 
aumentar seu tamanho total, que é a so¬ 
ma dos tamanhos das palavras individuais. 
Para que esse limite não seja ultrapassado, 
a variável NB mantém a contagem do nú¬ 
mero de bytes que sobram depois de uma 
alteração. 

A seguir, o programa pede uma pala¬ 
vra, coloca um 1 no bit 7 da última letra 
(linhas 150-170) e procura palavra na ma¬ 
triz A$( ). Não existindo, é dado um avi¬ 
so; se a palavra digitada existe na lista, é 
pedida uma nova palavra para substituí-la, 
com o cuidado de não ultrapassar o tama¬ 
nho máximo da lista (linhas 180-200). 
A contagem de bytes sobrando é atualiza¬ 
da, o último byte da nova palavra tem seu 
bit 7 igualado a 1, somando-lhe 128, a pa¬ 
lavra é substituída na matriz, e a exe¬ 
cução passa à linha 150 para pedir uma 
nova palavra ou terminar (linhas 210- 
220 ). 

No final, o usuário tem a opção de fa¬ 
zer ou não, a alteração final no cartão de 
RAM (230). Se ele quiser fazê-lo, o 
language card é preparado para receber a 
cópia da ROM e é instalada na memória, 
um pequeno programa em linguagem de 
máquina para chamar a rotina MOVE do 
monitor, junto com os parâmetros neces¬ 
sários para a sua execução (240) Partindo 
da posição P, a linha 250 POKEeia no car¬ 
tão de expansão, caractere por caractere, 
o conteúdo da matriz de palavras A$(). 
O POKE da linha 260 faz com que o 
RAM do cartão substitua o ROM da me¬ 
mória principal, tornando efetivas as mo¬ 


dificações feitas (até que, é claro, seja des¬ 
ligado o computador). 

A linguagem modificada pode ser ar¬ 
mazenada em disco com um 

BSAVE nome, ASD000, LS2FFF 

Depois, para reinicializar o cartão, exe¬ 
cute os seguintes comandos: 

POKE -16255,0: POKE -16255,0 
BLOAD nome 
POKE - 16256,0 

É claro que, se você quiser incluir esses 
comandos num programa, o segundo co¬ 
mando deve ser substituído por: 

PRINT CHR$(4); "BLOAD nome" 


Algumas observações 


1. Quaisquer programas escritos ante¬ 
riormente è uma modificação deste tipo 
na linguagem, não precisam (nem devem) 
ser alterados, pois o BASIC não armazena 
a palavra reservada e sim um código que 
a representa no programa. 

2. Este programa não deve ser utiliza¬ 
do num Applesoft já modificado, a não 
ser que se tenha completo controle sobre 
o que está acontecendo no computador 

3. Lembre-se de que, se houver algum 
problema durante ou depois da execução 
do programa de modificação, o simples 
acionamento do interruptor do com¬ 
putador o resolverá. 

4. Com algumas modificações, este 
mesmo programa pode ser usado para mo¬ 
dificar as palavras do DOS, sem a neces¬ 
sidade de se ter um cartão de expansão de 
memória. Nos próximos números mostra¬ 
remos como fazê-lo. 

5. Alguns leitores já devem ter pensado 
em modificar as mensagens de erro. Utili¬ 
zando uma técnica semelhante (mas não 
igual, devido a uma diferença que há no 
armazenamento dessas mensagens) vere¬ 
mos, nos próximos números, como fazer 
isso no Applesoft e no DOS. 

6. Comentários dos leitores a respeito 
deste programa, ou de outros relaciona¬ 
dos ao assunto, serão bem aceitos pela 
nossa equipe. 















I REN lt TRADUTOR DE PALAVRAS tt 

31983 POR DENTRO DO APPLE 

1H P = 53456: NP « 117 
11* DIB At(NP):NB * »:J * P - lt 
HONE : PRINT TAB( 4);'TRAD 
UTOR DE PALAVRAS RESERVADAS* 

: PRINT : PRINT : PRINT *A6U 
ARDE...* 

121 FOR 1 * 1 TO NP: Aid) * " 

13* J = J ♦ 1:At(I) = AtU) ♦ CHRt 
( PEEK <J)>: IF PEEK (J) < 

128 THEN 131 
140 NE1T I 

150 PRINT : PRINT : PRINT 'SOBRA 
H ‘jNB;* BYTES.*: PRINT *DI6 
ITE O CONANDO A ALTERAR --*: 
PRINT * <RETURN> PARA TERNI 
NAR:*: INPUT **;A*: IF At = 

** THEN 230 


2N NL * LEN (AtU)) ♦ NB: PRINT 
: PRINT *SUBSTITUI’-LO POR 1 
ATE’ *;NL5* CARACTERES):*: INPUT 
Bt:L = LEN <Bt): IF L > 

NL OR L - I THEN PRINT CHRt 
(7);: GOTO 200 

210 NB * NB ♦ LEN (AtU)) - L: IF 
L * 1 THEN AtU) - CHRt ( ASC 
(Bt) ♦ 128): 60T0 150 
220 AtU) * LEFTt (Bt,L - 1) ♦ CHRt 
160 IF LEN (At) * 1 THEN At * CHRt 
( ASC (At) ♦ 128): GOTO 180 
170 At * LEFTt (At, LEN (At) • 1 
) ♦ CHRt ( ASC ( RI6HTt (At 
,1)) ♦ 128) 

180 FOR 1 = 1 TO NP: IF AtU) = 

At THEN 200 

190 NEIT I: PRINT : PRINT *ESSA 
PALAVRA NAO EXISTE*; CHRt (7 
): 60T0 150 


( ASC ( RIGHTt (Bt,D) ♦ 128 
): GOTO 150 

230 INPUT ‘POSSO FAZER A ALTERAC 
AO FINAL (S/N)? *;At: IF LEFTt 
(At,l) « *N* THEN HOME : PRINT 
‘NENHUMA ALTERACAO FOI FEITA 
- TERMINADO.': END 

240 FOR I = 1 TO 13: READ X,Y: POKE 
X,Y: NEIT I: CALL 768 

250 PRINT ^ PRINT 'A6UARDE...': FOR 
I * 1 TO NP: FOR J s 1 TO LEN 
(At(I)): POKE P, ASC ( HIDt 
(At(I),J,l)):P * P ♦ 1: NEIT 
J,I 

260 POKE 49280,0: HONE : PRINT ' 

FIN DA ALTERACAO.': END 

270 DATA 768,160, 769,0, 770,76 
, 771,44, 772,254, 49281,0, 
49281,0, 60,0, 61,208, 62,25 
5, 63,255, 66,0, 67,208 



Tio Fred List agradece a todos os que tém 
enviado programas e em especial a Gui¬ 
lherme Nogueira Rodrigues o two liners 
enviado, cuja listagem vem a seguir. A coi¬ 
sa que esse programa cria está mostrada 
na figura em anexo. 


0 REN 6UILHERNE N. RODRIGUES 
SAO PAULO - SP 

1 H6R2 : HC0L0R= 3: FOR I * 0 TO 

190:P » I t ATN (1) / 45 t 
360 / 279 I 4:12 « 12 ♦ 279 / 
191:P2 > 12 t ATN (1) / 45 t 
360 / 279 I 3 

2 Y1 * SIN (P) I 95 + 95:Y2 * COS 

(P2) t 130 ♦ 139: HPLOT 12,Y 
1 TO Y2,X: NEIT 


Colaborações de Daniel Falconer e José Eduardo Moreira 
professores assistentes do Departamento de Computação da Escola Pueri Domus. 


Enviem suas colaborações para a "Se¬ 
ção Por Dentro do Apple" no seguinte 
endereço: 

MICROMEGA P.M.D. LT,DA. 

Rua Bahia, 1049 
01296-São Paulo-S.P. 
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A FITA DO MÊS 


TIG 



COMP 


Gustavo Egídio da Almaida 


Tig-Comp é um típico programa- 
ferramenta, cuja função é compilar os 
programas em Basic, ou seja, transformar 
os programas feitos originalmente em 
Basic, em programas de linguagem de má¬ 
quina do Z80, linguagem essa muito mais 
veloz que o Basic. 

Este software é comercializado pela 
Tigre-Comércio de Equipamentos para 
Computadores Ltda. 

0 programa nos foi enviado, gravado 
numa fita de boa qualidade, acompanha¬ 
da de manual explicativo. (Fig. 1) 



f»g. i 


Tig-Comp pode ser usado em todos os 
computadores compatíveis com a linha 
Sinclair, TK-82, TK-83, TK-85, CP-200, 
e outros. 

Testando Tig-Comp em alguns progra¬ 
mas desenvolvidos ou adaptados na nossa 
redação, este veio a confirmar as expecta¬ 
tivas, provando ter um bom desempenho 
apesar de haver algumas-restrições, mas 
quase todas superáveis. 

A fita trabalha somente com números 
inteiros, na faixa de -32768 a 32767, 
sem operações com "Strings" e Álgebra 
Booleana. 

Os comandos usados pelo Tig-Comp, 
são os seguintes: 

ABS, CHR$, CLS, FAST, GOSUB, 


GOTO, SCROLL, SLOW, STOP, 
UNPLOT, USR e COPY (usando-se 
USR 2153). 

DIM Z(V) - A matriz deve ser única, 
devendo ser dimensionado apenas um 
ARRAY sempre tendo o nome Z. 

FOR-NEXT - Seu incremento é sem¬ 
pre de 1. 

Exemplo: 

Maneira errada: _ 

IO POR C«1 TO 10 3TEP B 
20 NEXT C 


Maneira correta: 



IF-THEN — 

Exemplo: 


Maneira errada: 

10 IP fiai OR B=2 THEN GOTO 100 


Maneira correta: 


10 

IP 

R*1 

THEN 

GOTO 

100 

20 

IP 

B=2 

THEN 

GOTO 

100 


LET: Este comando é restrito às qua¬ 
tro operações (+, —, /) mais as seguin¬ 
tes funções: 


LET V = (PEEK U, USR U, ABS U, 
INT U) 

LET V = RND: Esta função é diferen¬ 
te da usada no seu micro. No TK, o 
RND gera um número aleatório de 0 a 1. 
No Tig-Comp, RND gera um número 
inteiro de 0 a 32767. Para compreender 
melhor o uso desta função, compare os 
exemplos: 


Maneira errada: _ 

10 LET L» INT <RND*30J 


Maneira correta: 


10 

LET 

L w INT 

(RND/C327E7/30)) 

OU 




10 

LET 

L * INT 

IRND/1092) 


Note que, nesta função é gerado um 
número de 0 a 32767, que deve ser dividi¬ 
do pelo número que faríamos variar, se 
usássemos essa mesma função no Basic- 
TK: 

LET V = CODE INKE Y$ Assume o 
valor do código da tecla pressionada. 
Exemp/p; 

Maneira errada: 

10 IP INKEY*«*S M THEN LET R-R + l 


Maneira correta: 



NEW — Usa-se USR 0 se desejar "apa¬ 
gar" toda a memória, incluindo acima da 
RAMTOP. 

Usa-se USR 963 para "apagar" até a 
RAMTOP, como usado normalmente. 

PAUSE V — A tela não oscila. O valor 
de V tem que ser menor que 32768 e 
qualquer tecla pressionada durante a pau¬ 
sa, provocará a execução do comando se¬ 
guinte: 


BREAK — Retorna ao Basic. 

PR INT — Podem ser usados: 

PRINT AT, "STRING", VARIAVEL, 
CHR$, podendo os mesmos serem com¬ 
binados. 

Exemplo: 

10 PRINT RT 10,10; "HJCPDMfGA ', AT 
11,10;"MICROHOPBy“ 
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Agora apresentaremos um programa- 
exemp/o, mostrando-o primeiramente em 
Basic-TK e, posteriormente, o mesmo 
programa já com as respectivas modifica¬ 
ções, podendo ser compilado pelo Tig- 
Comp. 

Antes de tudo, devemos carregar o 
Tig-Comp com o comando LOAD " 
Carregado o programa, devemos deletar 
todas as linhas menos as de números 
0, 2, 3 e 4; que serão usadas pelo compi¬ 
lador. 

Seu programa poderá então ser digita¬ 
do a partir da linha 5.Vamos ao programa 
exemplo: (Figura2) 



Agora, atenção: na figura 3 mostramos 
esse mesmo programa, modificado apenas 


para sua aceitação no Tig-Comp. 

Especial atenção às linhas 30, 32, 35 e 
65. (Figura 3) 

Após digitar-se o novo programa, tere¬ 
mos que compilá-lo, oü seja, transformá- 
lo de Basic para linguagem de máquina. 

Para isso temos que acionar o Tig-Comp 
através do comando direto, ou seja, sem 
número de linha: 


LET L = USR 17389 


A operação de compilar é rápida, e 
após o comando acima, sua listagem apa¬ 
recerá na tela em forma de SC ROL L. 

Essa operação se repetirá três vezes e 
logo após isso, aparecerá no canto inferior 
da tela o código 0/0, finalizando a opera¬ 
ção do compilador. A partir deste mo¬ 
mento, seu programa já estará compilado. 

Se seu programa foi verificado, atenta¬ 
mente, em Basic, poucos erros surgirão. 
Caso isso ocorra, surgirá um@ inverso, so¬ 
bre ou próximo ao erro cometido. 

O cursor é transposto instantaneamen¬ 
te à linha não identificada pelo compila¬ 
dor, faltando somente editar e corrigí-la. 

Depois de compilado, o programa deve 
ser tratado como uma rotina em lingua¬ 
gem de máquina e, para acioná-lo, usa-se 
o comando LET L = USR 18823. O 


5 REM METEORO 
1© RCM GUSTPUO EGIDJO De 
RLMEIDP 
15 LET Brl0 
20 LET R-10 
25 LET 0*0 

30 IF INKEY$."5" THEN LET B=B- 

35 IF INKEY *■**©- THEN LET B-B* 

37 IF B<0 THEN LET B<=0 
35 IF B>29 THEN LET B»29 
40 PRINT PT P, B, ” 8 "; PT P , B; - •• 

45 LET C=C*1 
50 PRINT PT P♦1,O; 

55 IF PEEK (PEEK 16390+256*PEE 
K 1530©) <>0 THEN GOTO 7S 
50 5CROLL 

65 PRINT PT 20,INT (RND*30);"4 
M ; PT 2©,INT (RND*3C) PT 20,X 

NT <RND«30) ; - 
70 GOTO 30 

75 PRINT PT 20,7, "PONTOS ";C 
©O PRINT PT 21,0, -QUER OOGPR D 
E NOUO ? (S/N)- 

©S IF INKEY*-—S- THEN GOTO ÍOO 
©O IF INKEY*«”N** THEN PRINT PT 
i0,i3; - sm - 
©5 GOTO Ô5 
ÍOO CLS 
105 GOTO 15 

_ fig. 2 


6 RCM METEORO 
10 RtM GUSTPUO CGIDIO DE 
PLMEIDP 
15 LET 0=10 
20 LET P-IO 
25 LET C-0 

30 LET O-CODE INKEY* 

32 IF J=33 THEN LET B=B-1 

33 IF J=3õ THEN LET B=0fl 
37 IF B<0 THEN LET B=0 

30 IF B>29 THEN LET 0=29 
40 PRINT PT p,e, -B' ;RT P,B; ** ~ 

45 LET C-C+l 
50 PRIN7 PT P♦1 , B ; 

55 IF PEEK (PEEK lS393t256»PCE 
K 16399)otí THEN GOTO 75 
60 SCROLL 

65 PRINT PT 20,INT (RND/1093). 
-#-,PT 20, INT (RND✓1092 > ; " t" . PT 
20, INT (RND/1092) , *'#” 

70 GOTO 30 

75 PRINT PT 20,7; -PONTOS : C 

ÔO PRINT PT 21,0;-OOER JÚGRR D 
C NOUO t (S/N)— 

93 LET J=CODE INKEY* 

©5 IF THEN GOTO 10O 

90 IF J=51 THEN PRINT PT 10,13 


35 GOTO ©3 
ÍOO CLS 
105 GOTO 15 
110 ST OP 


fig. 3 


ERRATA 

O ESQUIADOR, MICROHOBBY N" 6 


P NEUE DO ESQUIADOR REALHENTE 
ERA "FOFP" E DESLIZOU SOBRE NÓS. 
R "AUALANCHE" SE DEUE PO FPTO DE 
TERMOS OMITIDO OS CÓDIGOS DE 
LINGUPGEM DE MÁQUINA DP LINHP 
REM.BASICAMENTE NÃO HP* PROBLEMP 
EM COPIP-LR CRRPCTERE POR CPRRC- 
TEREfUEJA "DESGRILANDO" DO N" 5) . 
PORÉM, UM DOS CRRPCTERES ESTA*EM 
INUERSO E PLGUMPS REVISTAS PODEM 
TER SAÍDO COM UM PEQUENO DEFEITO 
NP IMPRESSÃO, IMPEDINDO SUP LEI¬ 
TURA. 


PSSIM OS CÓDIGOS SRO: 


16514- ... 4-2 16515. 

16516.. . 64- 16517. 

16518.. .17 16519. 

16580.. .0 16521. 

16522.. .209 16523. 

16524-. . .214. 16525. 

16526.. .237 16527. 

16528.. .201 


. 12 
. 229 
.33 
.25 

. 1 
.2 

. 176 


TERMINE 

COM O UGA-DESUGA DE SEU MICRO, 
VÍDEO-GAME, VÍDEO-CASSETE, ETC. 

USE A CAIXA DE 
DISTRIBUIÇÃO CD-3-1 



compatível com: 
TK82, TK83, TK85 e 
TK2000, CP200, 
CP300 e toda a 
Unha APPLE. 



VENDAS: 



cromatécnica 

laboratório de ^ídeo Itda. 

R. Fforêncio de Abreu. 157 6° - Cj 604 Te/.: 228-2598 - CEP 01029 SP 


NOME: 


END.: 


[ ESTADO 


CEP: 


CIDADE: 
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OS OITENTA 


Última Parta 



UM 


EDITOR DE CARTAS 


Igor Sartori 


As funções de "fatiamento" de strings, 
também conhecidas por funções slicings, 
são convenientes para qualquer programa 
de processamento de textos. 

Estas funções permitem ao compu¬ 
tador "quebrar" uma cadeia de caracteres 
em pontos determinados. Estas funções, 
associadas com as outras que descrevemos 
anteriormente (Microhobby número 6), 
nos permite isolar qualquer grupo de ca¬ 
racteres numa string e executar funções 
com eles. 


RIGHT$, MID$ e LEFT$ 


As funções RIGHT$, MID$ e LEFT$ 

são responsáveis no TRS-80 e na maioria 
dos computadores (mas não no TK) pela 
s/icing. 

RIGHTS (string ou variável string, n): 
esta função fornece os últimos caracteres 
da string, ou seja, os n caracteres à direita, 
contados a partir do último. 

Por exemplo, no programa: 

10 LET A$ = "CERTAMENTE" 

20 LET B$ = RIGHTS (A$, 5) 

30 PRINT B$ 

O computador exibirá na tela: 

MENTE 

LEFTS (string ou variável string, n): 
fornece os n primeiros caracteres de uma 
string. 

Por exemplo, no programa: 

ia LET A$ = "CERTAMENTE" 

20 LET B$ = LEFTS (AS, 5) 

30 PRINT BS 

0 computador exibirá na tela: 

CERTA 

MIDS (string, ou variável string n, m): 
fornece um trecho da string de compri¬ 
mento n a partir do caractere m. Por 
exemplo, o programa: 

10 LET AS = "CERTAMENTE" 

20 LET BS- MIDS (AS,3,4) 

30 PRINT BS 

exibirá na tela: 
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TAM 

Além destas funções, podemos juntar 
pedaços de strings ou strings inteiras por 
meio da operação de concatenação ou so¬ 
ma de strings. Esta operação "soma" duas 
strings e fornece como resultado uma 
string com os caracteres justapostos. Por 
exemplo, o programa: 

10 LET A$ = "CERTA" 

20 LET B$= "MENTE" 

30 LET CS = A$ + B$ 

40 PRINT CS 

exibirá na tela: 

CERTAMENTE 


O slicing no TK-83 


No TK-83 e seus compatíveis é pos¬ 
sível fazer o "fatiamento" d e strings usan¬ 
do-se um recurso muito interessante: a 
própria posição dos caracteres. 

Se você conhece bem o TK, deve estar 
lembrado que cada caractere ocupa uma 
posição de memória numa variável string. 
Cada uma destas posições de memória 
tem o tamanho exato de um byte. O 
BASIC do TK permite que tenhamos 
acesso à cada um destes bytes. Por exem¬ 
plo na figura 1, mostramos um programa 
em BASIC TK que nos permite acessar 
um a um os bytes da string "CERTA¬ 
MENTE". 



Com este tipo de artifício poderemos 
simular no TK, as instruções RIGHTS, 
MIDS e LEFTS. 

RIGHTS no TK, devemos usar artifí¬ 
cio que faça o computador considerar a 
string de um ponto qualquer até o final. 
Para isso, basta fazer: 

LET 0**0*fN TO > 

onde A$ e B$ são variáveis strings, e N é 
um número inteiro. Repare que após o 


TO (SHIFT 4) não aparece número al¬ 
gum. Assim, o computador considera a 
string a partir do caractere N até o final. 

Experimente agora o programa da fi 
gura 2. Ele fornece todas as partes de uma 
string, que podem ser obtidas por este ar¬ 
tifício. 


10 LET fl|«"CCRTAHENTE M 

39 FOR 1*1 TO 10 
30 PRINT fl$(I TO I 

40 NEXT I 


CERTRMENTE 

ERTfiMENTE 

RTRMENTE 

TRMENTE 

RMENTE 

MENTE 

ENTE 

NTE 

TE 


LEFTS basta fazer com que o TK 
considere uma string a partir de primeiro 
até o "enésimo" caractere. Por exemplo: 


LJET TO NI 


onde N significa o número de caracteres 
que desejamos na string. 0 programa da 
figura 3 é um bom exemplo de como as 
coisas ocorrem no TK. 


IO LET fl|»"CEPTRNENTE” 
SÓ FOR 1-1 TO IO 
30 PRINT R»(l TO II 
40 NEXT I 


C 

CE 

CER 

CERT 

CP PTR 

CERTRM 

CEPTPME 

CERTRMEN 

CERTRMENT 

CERT RMEMTE 


MIDS basta fazer com que o TK con¬ 
sidere uma string a partir de um caractere 
também determinado. Por exemplo: 


LET 6|>R| (N TO Ml 


onde N representa o primeiro caractere 
considerado e M o último. 0 programa da 
figura 4 mostra um exemplo de aplicação 
para este tipo de instrução. 














Tanto no TK como no TRS-80 estas 
funções podem ser associadas a outras pa¬ 
ra se calcular a posição dos caracteres de 
uma string. 


Implementando o Editor de Cartas 


Com o conhecimento que já temos, 
podemos traduzir o programa do TRS 80 
para o TK. Na figura 5, mostramos uma 
listagem de como o programa ficou após 
nossas traduções. Evidentemente, corta¬ 
mos uma parte dele para simplificá-lo. To¬ 
davia, as alterações que fizemos não fo¬ 
ram muito profundas e podem ser incre¬ 
mentadas na listagem final. 




1 REM EDITOR 
IO LETT t = 3 
33 D TH nf(20.33» 

4.0 PRINT *’T HMRNHO MRX. DR LINH 
R«32 LETRfl3" 

130 PRIMT "INSTRUÇÕES" 

140 PRINT "IMTRODUIR RS LINHRS 
1 R 1" 

150 PRINT “P/ CORRIGIR 1 LINHfl“ 
160 PRINT • , DIGITE‘ , "> U ’ , E O SEU N 

• « 

-DIGITE FIM PRRP PRRR 


"ODO R TELR E5TIUER C 


-DIGITE CONT- 
300 


•0-INTRODUZI 
• 1-CORRECRO" 


170 PRINT 
R- 

171 PRINT 
HE IR" 

173 PRINT 

175 PRUSE 

176 CLS 

100 FOR Xsl TO 100 
190 LET Z = X 
200 PRINT “>“ ; X 
210 INPUT RfCXl 
215 PRINT Rf(X> 

220 IF Rf (X . 1) *” >** THEN GOTO 45 

0 

230 IF R$tX,l TO 3>»”FIH- THEN 
GOTO 260 
250 NEXT X 
260 CLS 

340 FOR Bsl TO X -1 
3SO PRINT Rf(BJ 
440 STOP 

450 RFH RCrriNR DE COPRECRO 
460 LET V«URL flf(X,2l 
47© PRINT ••5ELECRO" 

471 PRINT ”0-INTRODUZIR" 

472 PRINT 

475 INPUT 

476 CLS 

430 IP 3<0 OR R >1 THEN GOTO 470 
490 GOTO 500 +R *20 
50© LET Rf (V>*-- 

505 INPUT R f IVI 

506 PRINT R f CYI 

510 LET XeX-1 

511 GOTO 250 

520 LET TtLEN RfCY) 

530 LET C*1 
540 LET MeO 
550 LET Of=INKEYf 

560 IF THEN GOSUB 1000 

570 IF Ci*3-D- RND C «: *T THEN GOS 
UB 2000 

500 IF ©f«"I“ THEN GOSUB 3000 
590 IF Qfa-E” THEN GOSUB 4000 
600 IF 0$«"L M THEN GOSUB 5000 
620 GOTO 550 
900 STOP 

1O00 REM MOSTRR CRRRCTERES 

1005 IF OT THEN GOTO 550 

1010 LET MsM+l 

1020 LET C=C«- 1 

1040 LET I»=R»(Y,MI 

1050 PRINT I*. 

1060 RETURN 

2000 REM DEL ET R CRCTERE 
2010 LET Rf (Y) cRf (Y , 1 TO C-l) ^R$ 
(Y,Cfl TO » 

2020 RETURN 
3000 PEM INCLUSRO 
3010 INPUT US 

3020 LET Rf(Y)rR*CY,l TO C-1)+Uf 
♦RflY,C TO (32-C-LEN U f > > 

3030 RETURN 

4000 REM ESCRPE 

4020 PRINT 

4030 PRINT ft((Yl 

4040 LET R$(X1 

4050 LET X.*X - 1 

4060 GOTO 240 

5000 REH MOSTRR LINHR 

5010 PRINT R*IY,C TO I 

5020 LET M=0 

5030 LET CbI 

5040 RETURN 



Vamos, agora, descrever algumas das 
alterações que foram necessários para que 
o programa "rodasse" no TK. 

A primeira alteração importante está 
na linha 30. Nela ao invés de fazermos: 

DIM Rf(1001 

fizemos: 

DIM Rf(20,381 


Isso porque limitamos o número de li¬ 
nhas à 20, com 32 caracteres. No TK, o 
último índice de uma matriz string è o 
indicativo do tamanho máximo que cada 
variável, que faz parte desta matriz, pode 
ter. Assim, no nosso caso, A$(20,32) sig¬ 
nifica que temos uma matriz com 20 va¬ 
riáveis, contendo 32 caracteres cada uma. 
0 segundo índice é usado no s/icing indi¬ 
cando ao computador que aquela variável 
possui um comprimento máximo (no nos¬ 
so caso, 32). Cuidado entretanto com as 
"atribuições procustianas". 


As Atribuições Procustianas 


Uma das coisas que mais tem "grilado" 
os possuidores do TK-83 e seus compatí¬ 
veis é que, nos manuais de muitas destas 
máquinas, aparece uma frase com mais ou 
menos este conteúdo: "As atribuições de 
uma variável string só podem ser procus¬ 
tianas". 

Isso apareceu no manual, porque seu 
autor conhecia muito bem Mitologia: 
Procustes era um gigante que raptava as 
pessoas e as colocava deitadas numa ca¬ 
ma. Se a pessoa fosse menor, ele as estica¬ 
va até que ocupassem todo o leito. Se fos¬ 
sem maiores ele cortava suas pernas no 
comprimento da cama. É o que acontece 
com a atribuição de variáveis no TK. 
Quando você dimensiona um variável com 
DIM A$(10), ao atribuirmos uma string à 
A$, o computador sempre considera a 
string com dez caracteres (o valor do índi¬ 
ce): se a string for maior, ele corta os últi¬ 
mos caracteres; se for menor, ele preen¬ 
che o que falta para completar, com es¬ 
paços em branco. Experimente rodar o 
programa que mostramos na figura 6 para 
entender melhor o que ocorre. 


10 DZH RKIC) 

20 LET R$ = "PRRRLELEPIPEDO** 
30 PRINT Rf.LEN Rf 
40OLET Rf b"PRRRLELO” 

50 PRINT Rf,LEN Rf 


PRRRLELEP X 
PRRRLELO 


10 

10 


Como você deve ter notado, as atribui¬ 
ções deste tipo fazem com que as strings 
tenham sempre o mesmo comprimento. 
Levando isso em consideração não pode¬ 
remos, em hipótese alguma, controlar es¬ 
tas variáveis pelo seu comprimento, co¬ 
mo fizemos no TRS-80. 


Outras modificações 


Algumas modificações são óbvias e não 
as comentaremos (basta que você dê uma 
olhada na listagem que apresentamos nes¬ 
te número e na listagem que apresenta¬ 
mos na Microhobby 5). 

Devido às "atribuições procustianas", 
eliminaremos a parte que verifica se uma 


linha digitada excedeu o tamanho máxi¬ 
mo. Desta forma, se uma linha for excedi¬ 
da, o computador desconsidera o trecho 
a mais. 

As rotinas de correção foram substituí¬ 
das por sub-rotinas. Atenção para a sub- 
rotina que mostra os caracteres, uma vez 
que o BREAK do TK está na mesma tecla 
que o espaço, usamos o número 0 para fa¬ 
zer esta função. 

Com o que descrevemos neste e nos 
números anteriores, com um pouco de 
atenção, você pode analisar uma a uma as 
rotinas de correção de erros. Note que 
nâo fizemos uma rotina para (xbackspace 
(retorno do cursor sem apagamento de 
caracteres). Para isso, devemos lançar mão 
de uma rotina em linguagem de máquina. 
Isso fica como uma sugestão para que vo¬ 
cê desenvolva uma e nos envie como cola¬ 
boração (se for em BASIC, melhor ainda). 

Como qualquer outra seção desta revista, 
a seção Os Oitenta está aberta às colabora¬ 
ções, desde que estejam dentro do seu espí¬ 
rito: artigos voltados para o TRSSO, de pre¬ 
ferência sem mencionar-se discos ou lingua¬ 
gem de máquina, muito bem explicados, 
com detalhes técnicos para que o usuário do 
TK possa aprender um pouco mais de pro¬ 
gramação e conhecer uma outra máquina. 
Daremos preferência a artigos e programas 
que procurem aproximar as duas máquinas, 
mostrando suas semelhanças e diferenças. 

O 
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CURSO DE ASSEMBLY 

aula 6 


3101100111111 
3110111101000 
7>i7»r?>c*p>•* -i 00 Hli 
^00101’ 
j0®00ir 
011110 r 
001000 ' 
,011101 
-101110 
111010 

00001^0110100 

0000100110010 

0000100000101 


.000000110 
.11011001011 
31001" 00101 

3110C L100C 

>0100 1110' 

■36111H311S’ 
^<00000011 - 
y 0 ia0P‘->i li®!. 

©1 nr '.em 

ms 0000 

81000 j.1011 

>©0000110010F 
>110101111»^ 


^1011101^. 
.e0i00iiii0w 
00100 “■ 10110 


10110 
loeoD 
0010C 
10005 
00105 
1001£ 
^0111 
ôlll: 


1010. 
10111 
3010G 
1 1000 
101© 1 
1001G 
©11©/ 

. JL 1011 


■' 0111101000 - 
'11100011 


Flavio Rossini 


Iremos agora fazer "contas" com os re¬ 
gistradores, assim como fazemos em 
BASIC, com as variáveis de um programa; 
entretanto, a linguagem de máquina per¬ 
mite fazer diretamente apenas contas de 
soma e subtração e, como você já deve ter 
notado, lida apenas com números inteiros. 

Vamos indicar com as instruções de 
adição de registros e de pares de registros; 
(Tabela 1) e (Tabela 2) 


INSTRUÇÕES 

CÓDIGO 

ADO 

A.A 

*87' 

ADD 

A.B 

'80' 

ADD 

A,C 

*81* 

ADD 

a,d 

*82’ 

ADD 

A.E 

*83’ 

ADD 

A.H 

'84* 

ADD 

A.L 

‘85’ 


Tab .1 


INSTRUÇÕES 

CÓDIGO 

ADD HL. BC 

'09’ 

ADD HL.DE 

'19' 

ADD HL.HL 

'29' 


Tab .2 

A ifutruçáo ADO entra registros. 


que significam: some o conteúdo do regis¬ 
tro ou par de registros da direita com o da 
esquerda e conserve o resultado no regis¬ 
tro, ou par de registros da ESQUERDA; 
os registros da direita, portanto, NAO são 
alterados. Em BASIC, uma analogia pode¬ 
ria ser feita com: 

LET X = X + V 

Novamente notamos o registro A, ou 
seja, o ACUMULADOR como sendo pri¬ 
vilegiado; de fato, ele é o "alvo" de todas 
as operações aritméticas entre registrado- 
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res ou entre registradores e memória, per 
manecendo nele o resultado da operação. 
No caso de par de registros, o par privile¬ 
giado é o HL Assim, qualquer operação 
aritmética DEVE utilizar o acumulador 
ou o par HL 

Vamos então tentar somar o conteúdo 
do registro D com o registro E com uma 
subrotina em linguagem de máquina; (Ta 
bela 3). 

Note que a soma não pode ser feita di¬ 
retamente ! Devemos obrigatoriamente 
usar o ACUMULADOR. Coloque então o 
programa na memória e execute-o (usan¬ 
do HEXAMEM, publicado na edição nú¬ 
mero 4 e na número X, que condensa os 
melhores programas publicados na MI¬ 


CROHOBBY). Voce deverá obter o nú¬ 
mero 100 (=34 + 66)! Provavelmente de¬ 
ve ter surgido na sua cabeça, a seguinte 
pergunta: e se a soma der maior do que 
255 (ou seja FF’) que é o máximo que 
cabe num registro? E no caso de pares de 
registros, se o resultado for maior do que 
65535 TFFFF’)? 

De fato, em BASIC quando uma variá¬ 
vel estoura o limite máximo do compu¬ 
tador, o programa pára e aparece uma 
mensagem de erro. 

Para ver o que acontece em linguagem 
de máquina, façamos um exemplo: vamos 
carregar o registrador BC com o valor má 
ximo e somar 1. (Tabela 4). 


MEM. 

30009 

LD E,34 

'1E22' 


MEM. 

30002 

LD D.66 

'1642' 


MEM. 

30004 

LD A. D 

'7A' 

; copia D em A 

MEM. 

30005 

ADD A.E 

'83' 

; soma E com A, ou seja, com D 

MEM. 

30006 

LD C.A 

'4F' 

; copia o resultado em C 

MEM. 

30007 

LD 8,0 

'0600* 

; coloca 0 em B para a saída do pro 
grama 

MEM. 

Tab. 3 

30003 

RET 

'C9 

Programa para tomar os registros D e E 


MEM. 

30000 

LD HL1 

'210100' 

; coloca 1 em HL. ou seja, '0001' 

MEM. 

30003 

LD BC.65535 

'01FFFF' 

(note que devemos completar 
os 2 bytes de dados) 

; coloca o valor máximo em BC, 

MEM. 

30006 

ADD HLBC 

'09' 

ou seja. 'FFFF' 

; soma BC com HL; o resultado 

MEM. 

30007 

LD B.H 

'44' 

fica em HL 

; coloca H em B e L em C para 

MEM. 

MEM. 

Tab. 4 

30008 

30009 

LD C.L 

RET 

'4D' 

'C9' 

poder ter o resultado na tela 

Soma de 65535 com 1 . 













Você obtém como resultado o número 
01 De fato, pensando em hexadecimal (re¬ 
vista número 4 e número X de Micro - 
hobby), ao somar 'V ao número 'FFFF' 
deveríamos obter '10000', mas veja. este 
último dígito "não cabe" nos regis- 
tros! Quando isto ocorre, dizemos que 
houve um "vai um" ou CARRY, assim 
como ocorre ao somarmos, por exemplo: 

1 

19 

+ 18 (9 + 8=17, vai um...) 
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O microcomputador assinala este acon¬ 
tecimento em um bit chamado CARRY 
que faz parte de um registro INTERNO 
chamado F o qual não podemos usar 
DIRETAMENTE. Este registro armazena 
bits para várias informações (usualmente 
estes bits são chamados de FLAGs). As¬ 
sim, sempre que executarmos uma instru¬ 
ção de ADD, o bit de CARRY é calcula¬ 
do: se houver "vai um" ele resulta 1, caso 
contrário 0. 

Podemos usar o valor deste bit para fa¬ 
zer contas com números maiores do que 
255 ou até mesmo maiores que 65536. 
Para isto, usaremos a instrução ADC que 
é abreviação de "ADD WITH CARRY" 
ou seja, some com o CARRY, que sim¬ 
plesmente adiciona ao resultado obtido 
de uma soma, o valor do CARRY. Tere¬ 
mos então as seguintes instruções: (Tabe¬ 
la 5). 


INSTRUÇAo 

CÓDIGO 

ADC 

A. A 

*8F' 

ADC 

A.B 

'88' 

ADC 

A.C 

'89' 

ADC 

A.D 

'8A' 

ADC 

A.E 

’8B' 

ADC 

A.H 

'8C' 

ADC 

A.L 

'8D' 


INSTRUÇÃO 

CÓDIGO 

ADC HL.BC 
ADC HL.DE 
ADC HL.HL 

'ED4A' 

'ED5A' 

'ED6A' 


A instrução ADC. 


Observação: Estas trés instruções 
fazem parte das instruções precedi¬ 
das per 'ED\ 

Vamos então utilizar a instrução ADC 
para fazer contas com números maiores 
do que 65535. Suponhamos que quisés¬ 
semos somar os seguintes números: 
com '02A5EF' (= 2*65536 + 165* 
256 + 239 = 173 551) 

'F4DE' (=244*256 + 222 = 
= 62686) 

(NOTA: 65536 = (256) 2 ) 
Devemos obter: 173 551 + 62686 = 
= 236.237. 


Vamos dividir os números em três par¬ 
tes: colocando o primeiro nos registros 
B, D e H e o segundo nos registros C, E e 
O o resultado será colocado nas memó¬ 
rias, após o fim do programa! O raciocí¬ 
nio a ser usado é análogo ao somar de nú¬ 
meros de três dígitos na base 10, só que, 
no caso, a base seria 256. . . (Tabela 6). 

Repare que não nos interessa o resulta¬ 
do final dos registradores BC que no caso 
será 61406. O resultado da nossa soma 
por partes está nas memórias 30028, 
30029 e 30030 que estão após a instrução 
de RET. Portanto, para verificar se o nos¬ 
so raciocínio está certo, basta fazer: 

PRINT 65536 * PEEK 30030 + 256 * 
PEEK 30029 + PEEK 30028 

e obteremos 236.237! Note que a primei¬ 
ra instrução de soma deve ser SEMPRE 
um ADD pois não sabemos qual o valor 
inicial do CARRY e, se por acaso ele for 
1, introduziremos um erro no resultado. 
Neste ponto vale a pena salientar que as 
instruções LD não afetam a flag de 
CARRY; repare que as usamos livremente 
entre as instruções de adição sem afetar o 
resultado. 

As instruções de ADD e ADC também 
podem ser utilizadas para somar constan¬ 
tes numéricas diretamente com o acumu¬ 
lador; assim temos: (Tabela 7). 


INSTRUÇÃO 

CÓDIGO 

ADD A,dado 

ADC A.dado 

'C6' + 1 byte de dados 

*CE* ♦ 1 byte de dados 


Tab. 7 


O resultado ficará no acumulador; lem¬ 
bre-se que este registro é privilegiado e 
todas as operações aritméticas são referi¬ 
das a ele! Obviamente estas instruções 
também afetam a flag de CARRY. Note 
que, não podemos somar dados DIRETA¬ 
MENTE com pares de registros! 

Suponhamos então que você deseje so¬ 
mar um número, menor que 256 (por 
exemplo 74) com um par de registros 
(por exemplo HL). Isto poderia ser feita 
da seguinte maneira: (Tabela 8) 

Repare cuidadosamente no uso da ins¬ 
trução ADC A,0, que foi utilizada apenas 
para somar o valor do CARRY ao registro 
H! Usando este mesmo procedimento, 
tente agora somar um número maior do 
que 255 ao par HL, por exemplo HL + 
+ 256. . . (você deverá quebrar o número 
em dois bytes!). O exemplo anterior po¬ 
deria também ser feito carregando o par 
DE com 74 e usando a instrução ADD 
HL, DE; entretanto, estaremos usando 
mais registros. 

A operação de soma é muito utilizada 
também quando desejamos utilizar uma 
variável como contador para poder fazer 
loops de repetição, mais adiante, aprende¬ 
remos como fazer esses loops em lingua¬ 
gem de máquina; por enquanto, vamos in¬ 
troduzir a instrução INC (abreviação de 
INCREMENT), a qual adiciona 1 (um) ao 
valor do determinado registro (ou par), 
SEM, no entanto, AFETAR O VALOR 
DO CARRY! Observe que podemos usar 


MEM. 

30000 

LD E.200 

'1EC8' 


MEM. 

30002 

LD D,58 

'163A' 


MEM. 

30004 

LD A.D 

'7A' 


MEM. 

30005 

ADD A.E 

'83' 

; soma E com A e gera CARRY 

MEM. 

30006 

LD C.A 

'4F' 

; coloca o resultado em C 

MEM. 

30007 

LD A.0 

'3E00' 

; coloca 0 em A 

MEM. 

30009 

ADC A,A 

'8F' 

; transfere o CARRY para A e a seguir 





para B 

MEM. 

30010 

LD B.A 

'47' 


MEM. 

30011 

RET 

C9' 


Tab. 6 



Soma d* dois registros com resultado ma*or que 255. 


MEM. 

30000 

LD DE.13189 

'118533' 

; coloca 13189 em DE 

MEM. 

30003 

LD HL.31687 

'21C77B' 

; coloca 31687 em HL 

MEM. 

30005 

ADD HLDE 

T9' 

; soma DE com HL 

MEM. 

30007 

LD B.H 

'44' 

; coloca H em B e L tm C para 





a saída na tela 

MEM. 

30008 

LD C.L 

'4D' 


MEM. 

30009 

RET 

'C9' 


Tab. 8 




Soma dos pares DE com HL. 
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INSTRUÇÃO 

COOIGO 

ADD A.(HL) 

'86' 

ADC A,(HL) 

*8E' 

INC (HL) 

*34' 

Tab. 10 

A» inttruçóe» INC e ADD uundo a memória. 


esta instrução com TODOS os regis¬ 
tros: (Tabela 9). 


INSTRUÇÃO 

CÓDIGO 

INC A 

*3C 

INC B 

'04' 

INC C 

'0C' 

INC D 

'14' 

INCE 

'1C' 

INC H 

'24' 

INC L 

'2C' 

INC BC 

'03' 

INC DE 

'13' 

INC HL 

'23' 


Tab . 9 


Novamente, referindo-se ao BASIC, 
uma analogia para esta instrução seria: 

LET X = X + 1 

Lembre-se sempre da diferença entre 
ADD e INC: por exemplo, ADD A, 1 irá 
calcular um valor para o CARRY (0 ou 1) 
enquanto que INC A deixará o CARRY 
inalterado, embora as duas instruções pro¬ 
duzam o mesmo resultado no acumu¬ 
lador. 

Vamos então, seguindo os mesmos pas¬ 
sos que fizemos com a instrução LD, sair 
dos registros e ir para a memória. Apenas 
três instruções são disponíveis, que mos¬ 
tram claramente o privilégio do Acumula¬ 
dor e do par de registros H L: (Tabela 10) 


que significam respectivamente: some o 
CONTEÚDO da memória indicado pelo 
par HL ao acumulador (sem CARRY e 
com CARRY) e incremente o conteúdo 
da memória indicada por HL. Assim, ve¬ 
jamos o procedimento necessário, para so¬ 
mar um número, por exemplo, 64, ao 
conteúdo da memória 30010: (Tabela 11). 

Faça POKE 30010,36 e a seguir exe¬ 
cute o programa. Você deverá obter 100, 


pois irá realizar a conta 64 + 36 = 100! Ê 
sempre bom recordar que as variáveis de¬ 
vem ficar APÓS a instrução de RET 
(30010) no nosso caso). Entretanto, para 
programas mais complexos, é interessante 
colocar as variáveis bem depois da instru¬ 
ção de RET, deixando espaço livre na me¬ 
mória entre o fim do programa e as variá¬ 
veis para eventuais modificações no pro¬ 
grama que possam causar aumento do seu 
tamanho. o 


MEM 

30040 

LD 

HL,3OO10 

'213A75' 

; coloca 30010 em HL 

MEM. 

30003 

LD 

A.64 

'3E40' 

; coloca 64 em A 

MEM. 

30005 

ADD 

A,(HÜ 

’8E' 

; soma o conteúdo da memó¬ 
ria 30010 com A 

MEM. 

30006 

LD 

8.0 

'0600' 

; transfere o resultado para 
BC 

MEM. 

MEM. 

30008 

30009 

LD 

RET 

C,A 

'4F' 

*C9* 



Tab .11 A inatruçío INC par» o» registros internos. 
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QUEBRA-CABEÇA 


As 7 Pontes 
no Caminho 
da Aldeia 



Renato da Silva Oliveira 


— Gatinho Caratairo ! — disse ela com ti¬ 
midez, não sabendo sa o Gato gostava que 
o chamassem assim. Vendo que não se zan¬ 
gava, aventurou-se a concluir a frase: 

— Pode dizer-me que caminho devo to¬ 
mar? 

— Isso depende do lugar para onde quer 
ir — respondeu com muito propósito o 
Gato. 

— Não tenho destino certo. 


— Nesse caso, qualquer caminho serve. 

- Servirá sim, se o caminho levar a al¬ 
gum lugar - sugeriu Alice. 

— Qualquer caminho conduz a algum 
ponto, se você andar depressa e chegar - 
disse o Gato. 

Trecho de # 'Alic8 no País das Maravilhas" 
de Lewis Carroll — Adaptado por M. Lobato 



Nova mente, para esta seção, contamos 
com a colaboração de nosso colega, as¬ 
sinante e amigo pessoal, Nabor Rosenthal. 

Recebemos por volta do começo do 
mês, uma carta onde Nabor nos conta so¬ 
bre sua última viagem, quando esteve no 
Norte da India. 

Lá, a caminho da casa de seu ami¬ 
go, Ramarujan, ele teve que atravessar 
uma intrincada rede de pontes sobre um 
rio. 0 passeio de Nabor Rosenthal foi o 
que nos inspirou este mês. 

A seguir, transcreveremos o trecho da 
carta que deu origem ao nosso Quebra- 
Cabeça: 

"Indo ao encontro de meu amigo de 
infância, tive que atravessar um rio. Este 
rio continha 10 pequenas ilhas, interliga¬ 
das por uma rede de 18 pontes. Entretan¬ 
to, para cruzar sete destas pontes, deve¬ 
ríamos pagar uma determinada quantia. 
Este fato chamou-me a atenção e pergun¬ 
tei-me: Por que apenas sete? 

Eu queria visitar todas as ilhotas, pois 
uma carta de meu amigo hindú me infor¬ 
mava que em cada uma delas havia uma 
escultura em pedra, verdadeiras obras de 
arte, datadas de muitos séculos atrás. 

Antes de atravessar, porém, eu pensei 
um pouco sobre as sete pontes. Não foi 
preciso muito tempo para descobrir a mi¬ 
lenar sabedoria Hindu, escondida discre¬ 
tamente na disposição das pontes e na es¬ 
colha das pontes que deveriam ser taxa¬ 
das. Estas sete pontes foram escolhidas de 
tal forma que quem quisesse se livrar das 
taxas, teria que passar necessariamente 
por todas as ilhotas e por todas as outras 
11 pontes, pelo menos uma vez. Desse 
modo, uma pessoa disposta a não gastar 
desnecessariamente, veria todas as dez 
esculturas, sem pagar um centavo. 

Atravessei o rio pelo caminho mais 
econômico (sem pagar nada), passando 
uma única vez por cada ilhota e por cada 
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uma das 11 pontes sem taxas. Na base de 
cada escultura que encontrei em meu ca¬ 
minho, havia um número gravado. Anotei 
cada um deles e vi que formavam uma se¬ 
quência lógica que chegou a me espantar, 
pois estes números, nesta sequência, apa¬ 
rentemente apresentavam um signifi¬ 
cado". 

Em anexo, Nabor nos mandou um ma¬ 
pa, que reproduzimos na figura 1. As pon¬ 
tes estão diferenciadas por letras e as ilhas 
pelos números das esculturas. 


Seu problema é: 

1) Fazer com que o TK, previamente 
programado, descubra o caminho seguido 
por Nabor Rosenthal, indicando quais das 
pontes ele usou. 

2) Descobrir, usando o TK, se há al¬ 

gum significado na sequência de números 
encontrados nas bases das esculturas por 
Nabor Rosenthal, e se houver, esclarecê- 
lo. O 
















COMPUTADOR PESSOAL 
v i Á j AS-1000 



CARACTERÍSTICAS TÉCNICAS: 


UNIDADE DE PROCESSAMENTO: 

— Microprocessador Z80 A (8 bits) velocidade 3,25 MHz 

MEMÓRIAS: 

— 8 Kbytes EPROM (sistema /nterpretador BASIC) 

— 16 Kbytes RAM Iutilização para o usuário) 

MONITOR DE VÍDEO: 

— TV BS/P ou côr no cana! 2 (sem modificação) 

— 24 linhas com 32 caracteres por linha. 

— Gráficos 44 x 64 pixels 

— Vídeo reverso e normaI comutável por chave 


SOFTWARE: 

— Compatível com: CP200, TK82-C, TK83. TK85. 

NEZ8000, TIMEX 1000, ZX80, 
ZX81 

— Programável em hnguagem de máquina 

— Basic residente 


UNIDADE DE FITA: 

— Um gravador (sem interface -4S- 100) 

— Usando interface AS- 100 até quatro gravadores. 

TECLADO: 

— Membrana com ação sensitiva de toque (bolha 
metálica inoxidável) 

— 40 teclas com 154 funções, caracteres alfanuméricos, 
caracteres gráficos, funções matemáticas, comandos 

EXPANSÃO: 

— Para 32 Kbytes e 48 Kbytes (64 Kbytes total.) 

— Adiciona-se um ou dois módulos de 16 Kbytes, no 
interior do micro, através de acesso próprio no fundo 
do mesmo 

— O módulo básico de 16 Kbytes, e os dots de 
expansão, são todos iguais, permitindo expansão 
progressiva pelo usuário 

A CESSÔR/OS: 

— Dois cabos para conexão de gravador 

— Um cabo para conexão do micro a TV 

— A fonte de alimentação (110/22OV) jà é embutida no 
AS-1000 dispensando qualquer fonte externa 


PERIFÉRICOS: 

— Modem para transmissão de dados 

— Joystick 

— AS-100 (mterface) 

opera e gerencia até quatro gravadores 

■ comanda qualquer impressora (inclusive 
profissionais) 

- manipula arquivos em fita e não somente programas 
inteiros 

■ avança e pára gravadores, também por software 
(programação) 

• testa vahdade de programas e arquivos em fita. 

- permite cópias de fitas 

- lista programas, dados e arquivos na impressora 

- exclusivo sistema FSK (frequency shift keying) com 
compressor de áudio, que ajusta automaticamente 
o nível para o gravador, eliminando a desagradável e 
critica tarefa de ajuste no mesmo, oferecendo total 
confiabilidade nas gravações em fita 

Módulos de expansão (vide memórias) 

— Speed fi/e 

- expansão externa de memória com 1. 2 ou 4 
Mbytes 


GARANTIA DE 1 ANO 
ASSISTÊNCIA TÉCNICA DE FÁBRICA 


ENGEBRAS 
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Aqui você tem a melhor 
iniciação em 
microcomputaçâo 
que existe. 

OTK83jó ensinou mais de 2 milhões de pessoas. 

Ele é muito fácil de operar. Usa o Basic, e a memória chego 
até 64 K bytes, e aceita monitor, impressora e joystick. 

Num instante você vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponíveis. O 
TK 83 não é só a melhor iniciação. Também é a mais divertido. 


Aqui você já aplica 
os seus conhecimentos 



Com o TK 85 você também pode se divertir muito: ele 
tem dezenas de jogos disponíveis. 

Mas ele já é mais sofisticado. Tem software já pronto. 
Linguagens Basic e Assembler. Teclado tipo máquina de 
escrever, com 40 teclas e 160 funções. 16 ou 48 K de 
memória RAM , e 10 de ROM. Gravação em high-speed, 
e função Verify, para maior segurança. 

Quando você já estiver apaixonado por 
microcomputaçâo , ele vai corresponder totalmente 


Aqui você mostra 
tudo o que sabe. 


TK2000s8&fcu 


O TK 2000 Color tem tudo que os 
melhores micros têm. Menos o preço 
Aceita diskette , impressora (já vem com 
interface), alta resolução gráfica à cores 
podendo ser ligado ao seu TV colorido 
ou P&B. Tem 64 k de memória RAM e 
16kde memória ROM. Com excelente 
software disponível. 

Você poae mostrar tudo o que sabe 
Sem precisar mostrar muito dinheiro 
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